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ABSTRACT 


Blade  Dynamics  Analysis  is  a  major  portion  of  a  helicopter  design.  The 
success  of  the  design  is  strictly  related  to  accuracy  of  the  blade  dynamic  calculations.  The 
natural  frequencies  and  the  mode  shapes  are  not  only  difficult  to  calculate  but  also  can  be 
a  time  consuming  procedure.  The  Myklestad  Extension  Method  gives  the  designer  the 
opportunity  of  calculating  correct  values  of  the  natural  frequencies  and  the  mode  shapes 
when  centrifugal  forces  are  present.  This  thesis  provides  a  transfer  matrix  Myklestad 
analysis  programmed  in  MATLAB®  and  a  Graphical  User  Interface  (GUI)  tool  built  in 
the  MATLAB®  programming  language  version  6.1,  to  implement  the  Myklestad 
Extension  Method.  The  generated  code  and  the  GUI  are  designed  to  be  a  part  of  ‘Blade 
Dynamics  Module’  of  Joint  Army/Navy  Rotorcraft  Analysis  Design  (JANRAD).  Eor 
comparison,  nonrotating  and  uniform  beam  data  from  Young  and  Eelgar  and  the  actual 
data  of  H-3  (S-61)  helicopter  blade  are  used.  Results  of  the  comparison  show  that  the 
accuracy  and  robustness  of  the  program  are  very  good,  which  would  make  this  generated 
code  a  valuable  part  of  the  helicopter  designer’s  toolbox. 
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I.  INTRODUCTION 


A.  BACKGROUND 

The  Joint  Army/Navy  Rotorcraft  Analysis  and  Design  (JANRAD)  eomputer  eode 
was  originally  developed  by  students  at  the  Naval  Postgraduate  School  (NPS)  for  use  in 
the  1993  American  Helicopter  Society  (AHS)  Design  Competition.  JANRAD  was 
developed  to  include  three  primary  modules.  These  modules  are  Performance,  Stability 
and  Control,  and  Structural  Dynamics. 

The  computer  code  for  interactive  rotorcraft  preliminary  design  using  a  harmonic 
balance  method  for  rotor  trim  was  developed  by  Nicholson  [Ref.  1].  The  linear  modeling 
of  Stability  Analysis  and  preliminary  design  was  developed  by  Wirth  [Ref.  2]  in  1993. 
Cuesta  [Ref  3]  used  a  modified  Myklestad-Prohl  transfer  matrix  method  for  modeling 
helicopter  blade  dynamics.  Further  improvements  to  the  rotor  dynamics  portion  were 
developed  by  Hiatt  [Ref.  4],  followed  by  a  validation  of  the  JANRAD  by  comparing  with 
H-34  and  UH-60A  flight  test  data  was  made  by  Eccles  [Ref  5].  Klein  [Ref  6]  developed 
linear  modeling  of  tilt  rotor  aircraft  (in  helicopter  and  airplane  models)  for  stability 
analysis  and  preliminary  design.  Lapacik  [Ref  7]  developed  the  Graphical  User  Interface 
(GUI)  for  JANRAD,  and  Hucke  [Ref.  8]  made  the  performance  enhancements  to 
JANRAD  and  GUI.  McEwen  [Ref.  9]  utilized  JANRAD  to  determine  the  stability  and 
control  derivatives  used  in  the  simulation  model  of  a  small  rotary  wing  UAV.  And  most 
recently  Heathom  [Ref.  10]  developed  the  stability  and  control  module  for  JANRAD 
software  and  GUI.  These  codes  have  been  used  efficiently  in  helicopter  design  courses  at 
the  Naval  Postgraduate  School  and  for  AHS  Design  Competitions. 

The  need  of  detailed  and  organized  analysis  on  blade  dynamics  in  JANRAD  was 
basic  inspiration  of  this  research.  The  MATLAB®  code  generated  in  this  thesis  is  going 
to  be  one  part  of  the  improvement  to  the  blade  dynamics  analysis  module  of  JANRAD 
and  is  focused  on  finding  the  mode  shapes  of  the  helicopter  blades. 
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B,  INTRODUCTION  TO  ROTOR  BLADE  DYNAMICS 

Dynamics  is  the  study  of  how  things  change  with  time,  and  of  the  forces  that 
bring  these  changes  about.  The  forces  that  change  with  time  and  act  upon  the  rotor  blade 
are  aerodynamic  forces.  Application  of  these  time -varying  forces  cause  a  dynamic 
response  to  the  blade  with  resultant  forces  at  the  blade  root  which  result  in  an  associated 
dynamic  response  to  the  airframe  and  its  components.  In  addition,  the  helicopter 
incorporates  an  entire  system  of  dynamic  components  consisting  of  the  engines,  engine 
gearboxes,  coupling  drive  shafts,  the  main  transmission,  tail  rotor  drive  shaft, 
intermediate  and  90-degree  tail  rotor  gearboxes  which  also  cause  dynamic  response  to  the 
airframe  [Ref  11].  The  focus  of  this  thesis  will  be  on  rotor  blade  dynamics. 

The  modern  helicopter  has  reached  the  present  state  of  design  without  waiting  for 
a  complete  definition  of  its  aerodynamic  and  dynamic  characteristics.  Instead,  it  has  been 
designed  by  extrapolation  of  existing  parameters,  and  then  allowed  to  prove  itself  through 
flight  test  and  development  programs  [Ref.  12]. 

A  general  helicopter  aeromechanics  problem  can  be  subdivided  into  five  major 
categories,  these  are  [Ref  12]; 

•  Air  Mass  Dynamics  (see  Figure  1) 

•  Calculation  of  Aerodynamic  Loads  (see  Figure  2) 

•  Rotor  Blade  Dynamics  (see  Figure  3) 

•  Blade-Fuselage  Coupling  (see  Figure  4) 

•  Fuselage  Dynamics  (see  Figure  5) 

Throughout  the  history  of  helicopter  design  studies,  all  major  areas  of  the 
aeromechanics  problem  were  not  able  to  be  solved  at  the  same  time.  Design  studies  were 
normally  focused  on  one  specific  area  or  at  most  two  of  the  areas.  In  recent  years,  the 
increased  capability  of  the  computer  has  allowed  the  designer  to  look  at  all  areas 
simultaneously. 
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Figure  1.  Air  Mass  Dynamics  “From  [Ref.  12]” 


Figure  2.  Calculation  Of  Aerodynamic  Loads  “From  [Ref  12]” 
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Figure  3.  Rotor  Blade  Dynamics  “From  [Ref.  12]” 


Figure  4.  Blade-Fuselage  Coupling  “From  [Ref  12]” 
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Figure  5. 


Fuselage  Dynamies  “From  [Ref.  12]” 


Rotor  Blade  Dynamics,  one  of  the  five  categories  of  aeromechanics  problem 
above,  plays  a  major  role  in  design  and  development  of  the  modern-day  helicopter.  For 
that  reason,  the  success  of  the  design  or  development  of  a  helicopter  is  directly  affected 
by  the  dynamics  of  the  rotor  blades.  As  in  many  physical  systems,  the  helicopter  blade 
has  a  number  of  natural  frequencies.  The  number  of  frequencies  depends  upon  the 
number  of  coordinates  necessary  to  define  the  motion  of  a  blade.  Natural  frequencies 
have  significant  importance  because  if  the  rotor  blade  system  is  excited  at  or  close  to  one 
of  its  natural  frequencies,  the  resulting  forces  and  motions  will  be  amplified.  For  that 
reason  a  primary  goal  in  a  good  helicopter  design  is  to  have  the  natural  frequencies 
sufficiently  distant  from  known  excitation  frequencies. 

The  rotating  helicopter  blades  have  both  flapping  and  lagging  movements.  During 
the  flapping  or  lagging,  the  blades  have  an  inertia  force  and  a  centrifugal  force  that  act  as 
spring.  The  Flapping  blade  (see  Figure  6)  and  lagging  blade  (see  Figure  7)  and  the  related 
equations  are  listed  below,  flapping  blade  motion  in  Figure  6  is  an  out-of-plane  motion 
while  the  lagging  blade  in  Figure  7  is  in-plane  motion. 
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1,  Flapping  Blade 


Figure  6.  Flapping  Blade  “After  [Ref.  11]” 


If  we  assume  is  a  small  angle: 

sin  /?  =  /?  and  cos  =  1 


Therefore; 


R 


R 


oP-p  I  PdMVpp  I  {e  +  t)tdM 


(1) 


Let 


I  PdM^I ^ 

e 


Statie  flapping  moment  of  blade, 


R 

I  IdM^S ^ 
e 


Mass  flapping  moment  of  inertia 


Henee; 


aPl ^  ^  -^1  p  =0 


(2) 
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And; 


G>  -  D. 


eS 


1  +  - 


J3 


(3) 


If  offset  is  equal  to  zero  e  =  0 ; 


Then,  cd^Q; 


For  normal  offset  g>  =  1.020. . 


2.  Lagging  Blade 


dMco^£0  ( Inertial  Force) 


Figure  7.  Lagging  Blade  “After  [Ref  11] 


Assuming  small  angles; 


sin  4^  =  4^  and  cos  4  =  1 


Therefore; 


R  R  R 

I  dMo?t^e+  I  dMO^{e  +  l)^t-  |  dMO^ (e  + 1)10  =  0 


(4) 
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For  typical  rotors;  — <q}  <  —  . 

4  3 

For  the  case  of  multiple  degrees-of- freedom  the  same  principles  apply  as  in  the 
single  degree-of-freedom  case.  The  only  difference  is  that  there  are  additional  natural 
frequencies  for  each  additional  degree-of-freedom.  At  each  natural  frequency  (oj)  the 
system  vibrates  in  a  characteristic  shape.  These  characteristic  shapes  are  called  mode 
shapes.  Every  mode  shape  has  maximum  and  minimum  points.  Starting  from  the  second 
modes,  mode  shapes  will  also  have  zero  amplitude  at  some  points  (referred  to  as  nodes). 
The  second  mode  shape  has  only  one  node.  In  general  the  n^’’  node  will  have  ‘n-l’  nodes 
(see  Figure  8).  For  the  system  in  Figure  8  0)3  >  02  >  Wi  [Ref  11].  The  natural  frequencies 
are  called  eigenvalues  and  the  mode  shapes  are  eigenvectors.  The  statements  in  this 
paragraph  are  valid  for  all  vibrating  systems. 


8 


THIS  PAGE  INTENTIONALLY  LEET  BLANK 


10 


II.  MYKLESTAD  ANALYSIS 


Vibrations  of  continuous  systems,  such  as  beams,  helicopter  fuselage,  or  rotor 
blades,  can  be  analyzed  mathematically  by  reducing  the  system  to  a  system  of  discrete 
masses  and  springs.  Some  of  the  methods  for  analyzing  vibrations  are  [Ref  13]: 

•  Rayleigh’s  Energy  Method 

•  Rayleigh-Ritz  Method 

•  Stodola  Method 

•  Holzer 

•  Myklestad 

•  Influence  Coefficients  Employing  Matrix  Methods 

One  method  for  determining  the  natural  frequencies  or  critical  speeds  of  shafts  or 
beams  in  bending  is  the  iteration  method  of  Stodola,  either  in  its  graphical  form  or  its 
numerical  form  [Ref.  14].  Also  a  useful  and  practical  method  of  mode  shape  and 
frequency  analysis  was  that  developed  by  Holzer  and  has  been  used  by  engineers  for 
years.  The  Holzer  Method  was  developed  primarily  for  application  to  torsional  vibration 
problems  [Ref  15].  An  extension  of  Holzer’s  method  to  the  beam  lateral  vibration  (or 
bending)  problem  was  made  by  Myklestad  and  has  proven  useful  in  analysis  of  airplane 
wings,  rotor  blades  and  turbine  blades.  This  method  is  referred  to  as  Myklestad  Extension 
or  Myklestad-Prohl  Method.  Both  Holzer’s  original  method  and  Myklestad’s  Extension 
are  effectively  step-by-step  solutions  of  the  differential  equation  of  a  lumped  parameter 
system. 

A,  THE  DISCUSSION  OF  THE  MYKLESTAD  METHOD 

The  beam  in  question  is  first  divided  into  a  convenient  number  of  sections.  The 
mass  of  each  section  is  calculated,  divided  into  halves,  and  these  halves  concentrated  at 
the  two  ends  of  each  section.  Thus  the  beam  is  weightless  between  cuts  and  at  each  cut 
there  is  a  concentrated  mass  equal  to  half  of  the  sum  of  the  masses  of  the  two  adjacent 
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sections.  As  in  the  Holzer  method,  we  assume  a  frequency  and  proceed  from  section  to 
section  along  the  beam.  In  the  torsional  problem  (governed  by  a  second-order  differential 
equation)  there  are  two  quantities  of  importance  at  each  cut:  the  angle  and  the  twisting 
moment.  In  the  flexural  problem  (governed  by  a  fourth-order  differential  equation)  there 
are  four  quantities  of  importance  at  each  cut:  the  deflection,  the  slope,  the  bending 
moment  and  the  shear  force.  In  order  to  solve  either  problem,  it  is  necessary  to  find  the 
relations  between  these  quantities  from  one  cut  to  the  next.  [Ref.  14] 

In  the  flexural  problem,  if  the  shear,  bending  moment,  slope  and  deflection  at  one 
station  is  known,  it  is  possible  to  compute  the  corresponding  values  at  the  next  station.  To 
solve  the  problem,  a  value  for  a  frequency  is  assumed,  and  the  shear,  bending  moment, 
slope  and  deflection  are  calculated  down  the  beam  from  mass  to  mass  until  the 
corresponding  quantities  at  the  other  end  are  obtained.  If  the  frequency  chosen  is  not  the 
correct  one,  boundary  conditions  at  both  ends  of  the  beam  will  not  be  satisfied 
simultaneously. 

In  the  past,  the  difficulty  of  this  method  was  obtaining  an  accurate  solution  with  a 
small  number  of  stations.  More  stations  mean  the  more  iterations  and  the  calculation  of 
these  values  by  hand  was  difficult  and  time  consuming.  Recently  computer  technology 
has  made  this  method  more  attractive.  The  number  of  iterations  can  be  increased  to  a 
larger  number  so  that  the  accuracy  can  be  increased.  Twenty-five  to  fifty  stations  gives  a 
close  value  to  the  exact  solution. 

B,  MYKLESTAD  METHOD  APPLIED  TO  THE  ROTOR  BLADE 

In  actuality,  the  blade  is  a  twisted  beam.  Its  proper  analysis  requires  considering 
the  coupled  flatwise-edgewise-torsional  response  of  the  blades.  Slope  and  deflection 
relationship  of  the  blade  and  resultant  twist  coupling  terms  can  be  derived  as  shown  in 
the  equations  below.  The  blade  has  slope  due  to  moment  ( v ),  slope  due  to  load  (  m  )  and 
deflection  due  to  load  (g )  values  about  its  flatwise  (fiapwise)  principal  axis.  Also,  slope 
due  to  moment  (V),  slope  due  to  load  (U)  and  deflection  due  to  load  ( G )  are  the  values 
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about  the  blade’s  edgewise  (chordwise)  principal  axis.  Allowing  one  discontinuity  7  in  a 

station  length  /  , ,  we  can  obtain 

n,n  +  \ 


n,n  +  \ 


n,n  +  \  n,n  +  \  n,n  +  \ 

-  +  — - ^ - 


{El  )  ,  {El  ) 

y  n+\  y  n 


_  1 

n,n  +  \  2 


2  ,2  2 

n,n  +  \  n,n  +  \  n,n  +  \ 
-  +  — 


{El  )  , 

y  n  + 1 


{El  ) 
y  n 


g 


_  1 
n,n  +  \  3 


3  ,3  3 

n,n  +  \  ^  n,n  +  \  n,n  +  \ 


{El  )  , 

y  n  + 1 


{El  ) 
y  n 


V 


n,n  +  \ 


n,n  +  \  n,n  +  \  n,n  +  \ 
-  +  - 


{El  )  , 

X  n  +  \ 


{El  ) 

X  n 


U 


_  1 
n,n  +  \  2 


2  ,2  2 

n,  n  +  1  n,  n  +  1  n,  n  +  1 

-  +  — 


)  , 
X  n  + 1 


{El  ) 

X  n 


_  1 

«,«  +  !  3 


n,n  +  i  n,n  +  i  n,n  +  i 


{El  )  , 

X  n  + 1 


-  +  - 


{El  ) 
z  « 


(9) 

(10) 

(11) 

(12) 

(13) 

(14) 


Then  if  we  take  the  blade  element  feathered  at  an  angle,  p  ,  to  the  reference  plane 
at  right  angles  to  the  axis  of  rotation.  Here  it  includes  twist  and  blade  feathering  0 . 
Then  the  slope  and  deflection  relationships  can  be  written  as  follows: 


V  -V  ,sin^y0  +  v  .co^P 

zz  n,n  +  \  n,n  +  \ 

(15) 

V  -V  .cos^P  +  v  .sir?'  P 

XX  n,n  +  \  n,n  +  \ 

(16) 

V  -V  -{V  -V  ,)smPcosP 

zx  xz  n,n  +  i  n,n  +  i 

(17) 
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2  2 

u  -U  ,  sin  +  M  ,  cos  B 

zz  n,n  +  \  n,n  +  \ 

(18) 

U  -U  .  B  +  u  B 

XX  n,n  +  \  n,n  +  \ 

(19) 

u  -U  -(U  -u  , ) sin cos  B 

zx  xz  n,n  +  \  n,n  +  \ 

(20) 

g  =G  sir?  P  +  g  cos^/? 

zz  n,n  +  \  n,n  +  \ 

(21) 

G  -G  .cos^B  +  g  sir?  B 

XX  n,n  +  \  n,n  +  \ 

(22) 

g  =(G  -g  )  sin/?  cos/? 

zx  xz  n,n  +  \  n,n  +  \ 

(23) 

Illustration  of  an  element  of  the  blade  with  the  dynamic  forces  and  moments 
acting  on  it  along  the  flatwise  and  edgewise  principal  axes  are  given  in  Figures  9  and  1 1 
respectively.  Considering  the  forces  acting  on  an  element  of  the  blade,  related  equations 
for  flatwise,  edgewise  or  coupling  can  be  derived  using  the  coupling  terms  above. 


1.  Myklestad  Method  Applied  to  Rotor  Blade  About  Flatwise  Axis 

The  rotor  blade,  which  can  be  considered  as  a  twisted  beam,  is  divided  into  ‘n’ 
sections.  As  described  in  the  beginning  of  this  chapter,  the  mass  of  each  section  is 
assumed  to  be  concentrated  at  the  spanwise  c.g  of  each  section.  Each  section  has  the 
same  properties  as  shown  in  Figure  9.  A  frequency  is  assumed,  and  the  deflection  curve 
is  calculated.  When  the  deflection  curve  satisfies  the  ‘Boundary  Conditions’  then  the 
assumed  frequency  is  the  uncoupled  natural  bending  frequency  of  the  blade  (or  beam), 
and  the  deflection  is  the  normal  bending  mode  (mode  shape)  of  the  blade. 
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In  this  methodology,  according  to  the  Figure  9,  we  will  describe  from  the  tip  to 
the  root  with  ‘n+1”  closer  to  the  tip  and  “n”  closer  to  the  root  of  the  blade.  If  we  consider 
the  forces  acting  on  the  blade  the  “Equations  of  Motion”  can  be  described  as  follows: 


The  assumptions  for  applying  the  method  for  an  eigenvalue  analysis  are  as 
follows: 


•  Flatwise  Aerodynamic  Damping  constant  is  neglected; 


C  =0 
n 

Aerodynamic  Lift  Force  acting  on  the  blade  elements  for  a  particular 
frequency  component,  sin  mt  +  cos  cot ,  is  neglected; 


Aerodynamic  Drag  Force  acting  on  the  blade  elements  for  a  particular 
frequency  component,  sin  cot  +  cos  cot ,  is  neglected; 


D  +  id  =0 
n  n 
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a.  Centrifugal  Force 
Summing  forces  on  this  element 


XF  =  +T  ,  +mQ.^r 
X  n  n  +  \  n 


Then  the  “Centrifugal  Tension”  will  be  given  by 


T  —T  ,  +m  D.^r 
n  n+l  n  n 


(24) 


b.  Shear 

Summing  of  these  forces  on  this  element 


Y.F  -Q--S  +  S  .+m  CO  Z  - jC  coZ  +F  +  jf 
z  n  n  +  \  n  n  n  n  n  n 


Flatwise  Shear  ean  be  written  as: 


,+m  o?Z  -jC  (oZ  +F  +  jf 
n  n-\-\  n  n  n  n  n  n 


(25) 


The  term  C  represents  the  flatwise  aerodynamic  damping  on  the  blade 


element,  and  can  be  expressed  by 


C  ^5J3{chord)  (/  ,){pl2){Q.r  ) 

n  nn,n  +  \  n 


Thus  after  applying  the  assumptions  listed  previously  Equation  (25) 


beeomes: 


aF  ^F  ^  2ry 

S  -S  .  +m  CO  Z 
n  n+l  n  n 


c.  Moment 

Real  and  imaginary  flatwise  equations  for  moment  are  the  same.  Writing 
the  real  equations,  the  corresponding  equations  are  as  follows: 


+S^  J 

n  n  +  l 


-T  (Z  -Z  ) 
n  +  fn,  n  +  l  n  +  v  n  +  l  n' 


(26) 
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d.  Slope 

Real  and  imaginary  flatwise  equations  for  slope  are  the  same.  Writing  the 
real  equations,  the  eorresponding  equations  are  as  follows: 


n 


,(i  +  r  u  )  +  T  u  -M^  V  -M^  V 

n-\-\  n-\-\  zz  n-\-\  n-\-\  zx  n-\-\  zz  n-\-\  zx 


-S  M  -O  M 
n 1  ZZ  n 1  zx 


(27) 


In  the  flatwise  calculations  the  variables  of  edgewise  principal  axis  ( 0^ , 
and  S^)  are  equal  to  0,  and  the  terms  of  coupling  in  Equation  (27)  are  as  follows: 

{u^  does  not  effect  the  equation  because  of  being  multiplied  by  zero  value 


0^  and  S^)  and  does  not  effect  the  equation  because  of  being 

El 

multiplied  by  zero  value  M^).  According  to  these  assumptions  the  slope  equation 
becomes: 


/2  /2 

e''  ,(i  +  r 

n  n  +  \  n  +  \  2EI  n  +  \  pj 


n  +  \ 


n,n  +  l 
2E1 


e.  Deflection 

Real  and  imaginary  flatwise  equations  for  deflection  are  the  same.  Writing 
the  real  equations,  the  corresponding  equations  become: 


Z  =  Z  -9^1  .+T  9^  +T  9^ 

n  n-\-\  n  n,n-\-i  w  +  lw  +  lzz  «  +  l«  +  lzx 

..F  ^F  ^E 

-M  M  -M  M  -S  .g  -S  .g 
n 1  zz  n 1  zx  n  + 1  zz  n 1  zx 


(28) 


In  the  calculations  about  the  flatwise  principal  axis,  (9^  ,  and  S^)  are 


equal  to  0,  and  the  coefficients  of  coupling  in  Equation  (28)  are  placed  as  g^^=- 


n-\-\ 


3EI 


( does  not  affect  the  equation  because  of  being  multiplied  by  zero  value  0^  and  ) 
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( does  not  effect  the  equation  because  of  being  multiplied  by  zero 


/• 


and  =- 


n,n+\ 

2EI 


value  M^).  According  to  these  assumptions  the  deflection  equation  becomes: 


Z 

n 


n  +  \ 


/3  /2  /3 

,e  _vi+i 

««,«  +  !  n  +  1  n  +  1  2EI  ”  + 1  2EI  ”  + 1  Si?/ 


To  find  the  natural  frequency  of  the  rotor  blade,  the  frequency,  ro,  is  assumed,  and 
shears,  moments,  slopes  and  deflections  are  calculated  element  by  element  from  the  tip  of 
the  blade  to  the  root.  At  the  tip  of  the  blade,  shears  and  moments  will  be  equal  to  zero  and 
slope  and  deflection  of  the  blade  will  have  some  values: 


sf  =0 
=0 


Thus,  there  are  two  unknowns,  and  0^  .  These  are  carried  along  as  unknowns, 
as  we  go  element  by  element  down  the  blade. 

At  the  root  of  the  blade  we  could  write:  (using  subscript  “o”  as  the  root) 


Z^-a  Z  +b  6 


F 


0 


y 


y 


In  these  equations  the  constants  “a”  and  “b”  are  generated  as  we  go  down  the 
blade.  They  are  functions  of  the  mass  and  stiffness  properties  of  the  blade,  the  rotational 
speed  {Q),  and  the  assumed  frequency  {co). 
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At  the  root  of  the  blade  (for  Hinged  Blade): 


Or, 


=0 

0 

Z  =0 
0 


a  Z  +b  6 
M  ^  M 
T 


a  Z  +b  0^ 
Z  Z  ^ 

T  T 


T 
=  0 


In  Matrix  form: 


a 

b 

\z  1 

M 

M 

T 

a 

b 

z 

z 

L  r  J 

At  the  root  of  the  blade  (for  Hingeless  Blade): 


=  0 
=  0 


Or, 


Vt 

“Zt 


=  0 
=  0 


In  Matrix  form: 


a  ^ 

b^ 

\z  1 

e 

e 

T 

a 

b 

_  z 

z  _ 

L  r  J 

Sinee  the  values  of  Zt,  and  Or  are  non-zero,  the  solution  to  this  equation  is  found 
when  the  determinant  goes  to  zero.  At  this  point  the  assumed  natural  frequeney  is  the 
eorreet  natural  frequeney.  A  graphieal  illustration  of  this  proeedure  to  find  the  natural 
frequeney  of  the  rotor  blade  is  shown  in  Figure  10. 
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Once  the  blade  natural  frequencies  have  been  established  for  various  rotor  speeds 
we  ean  also  construct  a  fanplot  or  “Southwell  Plot”.  Sinee  the  blade  is  stiffer  in  the 
edgewise  direction,  the  natural  frequeneies  of  the  edgewise  modes  are  higher  than  the 
flatwise  modes. 


Trial  m  ‘s 


Figure  10.  Determination  of  Natural  Frequencies  “From  [Ref.  11]” 

2,  Myklestad  Method  Applied  to  Rotor  Blade  About  Edgewise  Axis 

Using  the  same  procedures  that  were  applied  to  Flatwise  Axis,  the  equations  for 
Edgewise  Axis  ean  also  be  found.  The  forces  aeting  on  the  blade  element  can  be  seen  in 
Figure  1 1 . 


a.  Centrifugal  Force 
Same  as  in  Equation  (24). 


20 


b.  Shear 


=S^  +m  {o? +D^)X  +D  +jd 
n  n+\  n  n  n  n 


(29) 


After  the  assumptions  are  applied,  Equation  (29)  becomes 


,  +m  (o)^+Q.^)X 
n  n+l  n  n 


c. 


Moment 


+S^  J  -T  (X  -X  ) 
n  n  +  \  n  +  \n,n  +  \  n  +  \  n  +  \  n 


(30) 


Figure  11.  Blade  Element  Equilibrium;  Edgewise  System  “After  [Ref.  12]” 


d.  Slope 


(\  +  T  u  )  +  T  u  -M^  y  -M^  y 

n  n  +  \  n  +  \  XX  n  +  \  n  +  \  xz  n  +  \  xx  n  +  \  zx 

-s^  y  -s^  y 

n  +  \  XX  n  +  \  xz 


(31) 
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In  the  edgewise  ealeulations  the  variables  of  flatwise  principal  axis  ( 6^ , 
and  S^)  are  equal  to  0,  and  the  coefficients  of  coupling  in  Equation  (31)  become: 

«+i 

^xx  -  (^xz  does  not  effect  the  equation  because  of  being  multiplied  by  zero  value 
2EI 

0^  and  S^)  and  does  not  effect  the  equation  because  of  being 

El 

multiplied  by  zero  value  ).  Accordingly,  the  slope  equation  becomes: 

P'  P 

Q  E  n,n  +  \  ^^E  n,n  +  \  ^E  n,n  +  \ 

n  n  +  V  n  +  \  2EI  n  +  \  £j  n  +  \  2EI 


e.  Deflection 


^  -9^  I  +T  9^  G  +T  9^  G 

n  n-\-l  n-\-l  n,n-\-l  n-\-l  n-\-l  xx  n-\-l  n-\-l  xz 

-M^  U  -M^  U  -S^  ,G  -S^  ,G 
«  +  lxx  n  +  ixz  n  +  i  XX  n  +  ixz 


(32) 


In  the  calculations  about  the  edgewise  principal  axis,  (0  ,  M  and  S  ) 


are  equal  to  0,  and  the  coefficients  of  coupling  in  Equation  (32)  become:  G^  = 


>2+1 


3EI 


( does  not  effect  the  equation  because  of  being  multiplied  by  zero  value  0^  and  ) 


and  17_=- 


2EI 


( does  not  effect  the  equation  because  of  being  multiplied  by  zero 


value  M^).  Accordingly  the  deflection  equation  becomes: 


P  P  P 

X  =A  -9^  I  ,+T  9^  +  n,n  +  \  _^E  n,n  +  \ 


n  n  +  \  n  n,n  +  \  n  +  \  n  +  \  2EI 


n  +  \  2EI 


n  +  \  2EI 


Using  the  equations  above  along  with  the  boundary  conditions,  which  depend  on 
the  blade  shape  (hingeless  or  hinged),  the  same  procedure  can  be  followed  as  was  in  the 
flatwise  axis,  and  the  corresponding  natural  frequencies  and  mode  shapes  can  be  found. 
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3,  Myklestad  Method  Applied  to  Rotor  Blade  About  Coupled  Axis 

In  the  calculations  for  the  coupled  natural  frequencies,  the  equations  for  both 
flatwise  and  edgewise  principal  axis  are  included.  As  a  result  of  using  both  principal 
axes;  matrix  dimension  expands  from  4X4  matrix  to  8X8  matrix;  and  the  boundary 
condition  matrix  expands  from  2X2  matrix  to  4X4  matrix.  Additionally,  because  of 
having  blade  element  feathered  at  an  angle  of  P ,  which  includes  twist  y^^and  blade 
feathering  0\  the  rotor  blade  twist  coupling  coefficients,  should  be  included  in  all 
equations.  Using  the  same  procedure  applied  to  both  flatwise  and  edgewise  axes,  the 
following  equations  can  be  found. 


a.  Centrifugal  Force 

T  —T  +m 
n  n+\  n  n 

b.  Shear 

+m  o?Z  -jC  coZ  +F  +  jf 
n  n-\-\  n  n  n  n  n  n 

,+w  {a?-+Q^)X  +D  +jd 
n  n-\-l  n  n  n  n 


Moment 


+S^  J  -T  (Z  -Z  ) 
n  n-\-l  n-\-ln,n-\-l  n-\-l  n-\-l  n 


+S^  J  -T  (X  ,-X  ) 
n  n  +  \  n  +  \n,n  +  \  n  +  \  n  +  \  n 


d.  Slope 

Now  all  the  coefficients  for  twist  coupling  will  be  used  as  described  in 
both  flatwise  and  edgewise  axes  applications. 
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,(i  +  r  u  )  +  T  u  -M^  y  -m^  y 

n  n-\-\  n-\-\  XX  n-\-\  n-\-\  xz  n-\-\  xx  n-\-\  zx 

-s^  y  -s^  y 

n  +  \  XX  n  +  \  xz 


e.  Deflection 

Same  as  the  slope,  for  defleetion  equations  the  eoeffieients  of  twist 
eoupiing  are  ineluded  in  the  equations. 


Z  -e^i 
n+\  H  i 


y  1  ,  rj.  y  ,  T’  aE  TLfF  ,.E 

y  +T  0  g  +T  0  g  -M  u  -M  u 
««,«  +  !  n  +  \  n+\  zz  n  +  \  n  +  \  zx  n  +  \  zz  n  +  \  zx 


-S  ,g  -S  ? 
n  +  \  zz  n  +  \  zx 


-6^  I  +T  0^  G  +T  0^  G 
n-\-\  n-\-\  n^n-\-\  w  +  lw  +  1  xx  w  +  l«  +  l  xz 

-M^  y  -M^  y  -s^  y  -s^  y 

n  +  \  XX  n  +  \  xz  n  +  \  xx  n  +  \  xz 


By  using  the  equations  stated  above  and  the  boundary  eonditions,  the  natural 
frequeneies  of  the  blade  ean  be  determined.  The  natural  frequeneies  are  found  in  the  same 
manner  as  in  the  previous  seetions.  The  only  differenee  is  that  the  dimension  of  the 
boundary  eonditions  matrix  is  4X4  instead  of  being  2X2. 
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III.  BUILDING  THE  MATLAB®  CODE  AND  VALIDATION  OF 

THE  CODE 


A,  APPLYING  THE  MATLAB®  CODE  TO  MYKLESTAD  ANALYSIS 

The  primary  difference  for  calculations  between  Hinged  (Articulated)  and 
Hingeless  (Rigid)  Blade  are  the  boundary  conditions  at  the  root.  The  boundary  conditions 
at  the  tip  are  same  for  both  Hinged  (Articulated)  and  Hingeless  (Rigid)  Blades. 

Centrifugal  Force  for  all  the  calculations  is  the  same  as  in  Equation  (24): 

T  =T  .  +  m 
n  n  +  l  n  n 


1,  Matrix  Form  of  the  Hinged  (Articulated)  Blade 
a.  Flatwise 

Following  the  application  of  Myklestad  Method  to  the  rotor  blade  about 
flatwise  axis  as  it  is  explained  in  the  previous  chapter,  the  matrix  form  of  the  equations 
according  to  the  boundary  conditions  is  formed  as  follows: 


The  boundary  conditions  at  the  tip  are 


z^=z^ 


or  A  .  = 
tip 


F 


and  the  boundary  conditions  at  the  root  for  a  hinged  blade  are 


Zo=0 


or  X 


root 
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If  the  equations  proeeed  from  tip  to  root  for  the  flatwise  axis,  the  equations 
ean  be  written  in  the  following  matrix  form: 


whieh  is  in  the  form 

Moving  [G]  to  the  right  side  by  pre-multiplying  eaeh  side  of  the  equation 
by  [G]  '  yields 

X  1=rGr^*[^l*r^  1 

L  nj  J  L  n  +  lj 

Letting  [^]=[<j]  *  *[^] ,  a  simplified  form  of  the  equation  beeomes: 

X  1=rFl*rx  , 

Moving  along  from  tip  to  the  root  by  saving  the  new  values  of  the  [F] 

matrix  through  all  stations,  the  relationship  between  the  root  and  the  tip  of  the  blade  ean 
be  written  as: 


After  applying  the  boundary  eonditions  at  the  root,  new  form  of  the 
equation  beeomes 
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which  can  be  simplified  to  a  2X2  matrix 


When  the  determinant  of  the  2X2  matrix  above  goes  to  zero  we  get  the 
natural  frequeney  value. 

Onee  the  natural  frequeney  is  found,  corresponding  relative  defleetion  of 
the  blade  in  every  station  can  be  found  by  placing  the  deflection  at  tip  to  a  value  of  1 
=1).  The  deflection  values  in  every  station  also  give  us  the  mode  shape  of  the  blade 

at  that  natural  frequeney.  All  the  steps  above  are  programmed  in  MATLAB®  version 
6.1[Ref.  16].  In  the  MATLAB®  program,  H-3  (S-61)  helieopter  data  is  used  [Ref  17]. 
To  see  the  complete  text  of  generated  MATLAB®  code,  refer  to  APPENDIX  A. 

b.  Edgewise 

Using  the  same  procedure  as  the  flatwise  case,the  boundary  conditions  at 

the  tip  are 


while  the  boundary  conditions  at  the  root  are 
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which  is  in  the  form 

Moving  [G]  to  the  right  side  by  pre-multiplying  each  side  of  the  equation 
by  [G]  '  yields 

X  1=rGr^*[^l*r^  1 

L  nj  J  •-  -*  L  n  +  lj 

Letting  [^]  =  [(j]  *  *[^]  a  simplified  form  of  the  equation  becomes: 

X  1=rFl*rx  , 

nj  *-  J  n  +  l_ 

Moving  along  from  tip  to  the  root  by  saving  the  new  values  of  the  [F] 

matrix  through  all  stations,  the  relationship  between  the  root  and  the  tip  of  the  blade  can 
be  written  as: 
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X 

=rF^]* 

Xrr.. 

root  _ 

L  J 

lip 

After  applying  the  boundary  eonditions  at  the  root,  new  form  of  the 
equation  beeomes: 


\s^x 

1 _ 

“0 

0 

0 

M 

'’"m 

0 

1 

o 

o 

_ 1 

E 

a  ^ 

E 

c 

d^  ^ 

1 _ 

L  X 

X 

X 

x\ 

whieh  ean  also  be  simplified  to  a  2X2  matrix 


0 

0 


6 


X 


When  the  determinant  of  the  2X2  matrix  above  goes  to  zero,  we  get  the 
natural  frequeney  values  for  the  edgewise  modes. 


c.  Coupled 

Combining  both  flatwise  and  edgewise  equations  as  explained  in  the 
previous  ehapter  and  using  the  same  proeedure,  the  matrix  ean  be  formed  as  follows: 
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The  boundary  conditions  at  the  tip  are 


and  the  boundary  conditions  at  the  root  are 
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If  the  equations  proeeed  from  tip  to  root  for  eoupling  mode,  the  equations 
can  be  written  in  matrix  form: 


1  0 

0 

2  A 

-m  CO  0 
n 

0 

0 

0  1 

0 

-T  ,  0 

n  +  l 

0 

0 

0  0 

1 

0 

0 

0 

0 

0  0 

^n,n  +  l 

1 

0 

0 

0 

0  0 

0 

0 

1 

0 

0 

0  0 

0 

0 

0 

1 

0 

0  0 

0 

0 

0 

0 

1 

0  0 

0 

0 

0 

0 

n,n  +  1 

1 

0 

0 

0 

n,n  +  l 

1 

0 

-T  1 

n  +  l 

-u 

zz 

-V 

zz 

{1  +  T  M  ) 

^  n  +  l  zz^ 

0 

-Szz 

-u 

zz 

T  1 

n  +  l 

1 

0 

0 

0 

0 

0 

0 

0 

0 

-U 

xz 

-V 

xz 

T  n 

n  +  l  XX 

0 

-G 

xz 

-U 

xz 

T 

n  +  l  xz 

0 

0  0 

0  0 

-V  T  M 

zx  n  +  l  zx 

u  -T 

zx  n  +  l  zx 

0  0 

1  0 

V  (1+r  n  ) 

XX  n  +  l  XX 

U  T  .G 

XX  n  +  l  XX 


which  is  also  in  the  form 

j  L  nJ  L  n  +  lj 

Pre-multiplying  each  side  of  the  equation  by  [G]  ’  yields 
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Again  letting  [^]  =  [(j]  *  *[^4] ,  simplified  form  of  the  equations  beeomes: 

X  1=rFl*rx  , 

Moving  along  from  tip  to  the  root  by  saving  the  new  values  of  the  [F] 

matrix  through  all  stations,  the  relationship  between  the  root  and  the  tip  of  the  blade  ean 
be  written  as: 


After  applying  the  boundary  eonditions  at  the  root,  new  form  of  the 
equation  beeomes 


whieh  ean  be  simplified  to  a  4X4  matrix 


When  the  determinant  of  the  4X4  matrix  above  goes  to  zero  we  get  the 
natural  frequeney  values. 
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2,  Matrix  Form  of  the  Hingeless  (Rigid)  Blade 

The  only  difference  from  the  Hinged  (Articulated)  Blade  is  to  change  to  boundary 
conditions  at  the  tip.  Other  equations  are  as  listed  in  the  Hinged  (Articulated)  Blade 
section.  For  that  reason  the  same  equations  are  not  repeated  in  this  section. 


a.  Flatwise 

The  boundary  conditions  at  the  root  are 


^  ' 
II 

O 

! 

0 

II 

o 

II 

N 

o 

o 

II 

or  X 


root 


0 


5 

M 

0 

0 


After  applying  the  boundary  conditions  at  the  root,  new  form  of  the 
equation  becomes 


F 

0 
F 


1 

< 

1 _ 

U 

0 

0 

O 

1  _ 

‘'s' 

“0 

a 

b 

c 

d 

0 

M 

M 

M 

M 

4e 

"z 

dz  \ 

1 

N 

_ 1 

which  can  be  simplified  to  a  2X2  matrix 


"0" 

1 

d^ 

* 

1 

_ 1 

OJ 

1 

N 

1 

N 

_ _ _ 1 

Using  the  same  procedure  as  described  in  first  section  of  this  chapter 
natural  frequencies  and  mode  shapes  can  be  found. 
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b.  Edgewise 


The  boundary  conditions  at  the  root  are 


After  applying  the  boundary  conditions  at  the  root,  new  form  of  the 
equation  becomes 


which  can  be  simplified  to  a  2X2  matrix 


Using  the  same  procedure  as  described  in  first  section  of  this  chapter 
natural  frequencies  and  mode  shapes  can  be  found 
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c.  Coupled 

The  boundary  conditions  at  the  root  are 


After  applying  the  boundary  conditions  at  the  root  new  form  of  the 
equation  becomes 


which  can  be  simplified  to  a  4X4  matrix 
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0" 

1 

1 

1 

_ 1 

0 

c 

d 

g 

h 

z 

z 

z 

z 

z 

* 

T 

O  O 

1  _  .  . 

c 

d  „ 

d 

g 

^  F 

h 

X 

X 

X 

X 

X  J 

IT  J 

When  the  determinant  of  the  4X4  matrix  above  goes  to  zero  we  get  the 
natural  frequeney  value,  and  using  the  same  procedures  above  mode  shapes  can  be  found. 


B,  VALIDATION  OF  THE  CODE 

1,  Comparison  of  the  Uniform  Nonrotating  Hinged  Blade  (Supported- 
Free  Beam)  with  Young  and  Felgar 

Although  the  MATLAB®  Programming  was  written  in  accordance  with 
procedures  described  in  each  subsection  above,  a  validation  of  the  results  must  be  made. 
A  good  validation  method  is  to  compare  the  results  of  the  program  with  the  uniform  and 
nonrotating  beam  mode  shapes  values  in  Young  and  Felgar  [Ref  18].  Related  data  used 
for  validation  is  included  in  APPENDIX  B.  The  publication  [Ref  18]  provides 
eigenvalues  and  eigenvectors  for  nonrotating  uniform  beams  with  a  wide  range  of 
boundary  conditions.  But  the  MATLAB®  code  given  in  this  thesis  is  generated  for  H-3 
(S-61)  helicopter,  which  has  a  rotating  blade  with  nonuniform  blade  properties.  For  that 
reason  in  order  to  get  accurate  results,  the  program  generated  for  H-3  (S-61)  helicopter 
was  modified  as  a  uniform  and  nonrotating  blade  to  compare  with  Young-Felgar  data. 
The  modified  program  is  included  in  APPENDIX  A.  Only  first  three  mode  shapes  were 
used  for  the  validation,  and  the  MATLAB®  program  was  run  for  10,  20,  30,  40,  50,  100, 
and  200  blade  stations.  The  MATLAB®  code  matched  with  the  values  of  tables  given  in 
Young  and  Felgar,  the  accuracy  of  the  plots  increasing  as  the  number  of  the  stations  were 
increased  as  is  expected. 

Figure  12  shows  the  results  of  one  of  these  comparisons.  The  dashed  lines  with 
green,  red  and  magenta  colors  represent  each  mode  shape  of  the  corresponding  Young 
and  Felgar  data,  while  the  blue  lines  represent  the  mode  shapes  of  the  generated 
MATLAB®  code.  Tables  1  and  2  contain  a  summary  of  the  comparisons. 
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Hinged  Nonrotating  Uniform  Blade  Comparison  (100  Stations) 


Figure  12.  Comparison  to  Young  and  Felgar  Table  (Hinged  Blade  100  Stations) 

If  we  look  through  the  results  of  all  stations  in  Table  1  and  Table  2  we  ean  see 


that  by  increasing  the  number  of  stations  the  accuracy  of  the  program  increases  as  well. 


Young 

and 

Felgar 

10 

Stations 

20 

Stations 

30 

Stations 

40 

Stations 

50 

Stations 

100 

Stations 

200 

Stations 

fli 

0 

0 

0 

0 

0 

0 

0 

0 

«2 

0.308580 

0.306839 

0.308158 

0.308395 

0.308477 

0.308515 

0.308564 

0.308576 

0.480431 

0.476928 

0.478647 

0.479004 

0.479129 

0.479187 

0.479264 

0.479283 

Tab 

e  1. 

Comparison  of  the  Coefficients  of  Natural 

frequencies 
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10 

Stations 

20 

Stations 

30 

Stations 

40 

Stations 

50 

Stations 

100 

Stations 

200 

Stations 

a 

0 

0 

0 

0 

0 

0 

0 

«2 

-0.55644 

-0.13699 

-0.06001 

-0.03344 

-0.02132 

-0.00522 

-0.00131 

as 

-0.72907 

-0.37131 

-0.29696 

-0.27088 

-0.25884 

-0.24287 

-0.23891 

Table  2. 


Error  Ratios  of  the  Natural  Frequency  Coefficients  (% 


2,  Comparison  of  the  Uniform  Nonrotating  Hingeless  Blade  (Clamped- 
Free  Beam)  with  Young  and  Felgar 


Using  a  similar  analysis  as  described  in  the  previous  section,  Figure  13  shows  the 
results  of  one  of  the  comparisons  for  a  uniform,  nonrotating,  hingeless  blade. 


Hingeless  Nonrotating  Uniform  Blade  Comparison  (100  stations) 


Figure  13.  Comparison  to  Young  and  Felgar  Table  (Hingeless  Blade  100  Stations) 
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If  we  look  through  the  results  of  all  stations  in  Table  3  and  Table  4  it  ean  be  seen 
that  inereasing  the  number  of  stations  improves  the  aceuraey  of  the  program  as  well. 


Young 

and 

Felgar 

10 

Stations 

20 

Stations 

30 

Stations 

40 

Stations 

50 

Stations 

100 

Stations 

200 

Stations 

ai 

0.159523 

0.148936 

0.155566 

0.155555 

0.162790 

0.162790 

0.162790 

0.162790 

ai 

0.357139 

0.353383 

0.366000 

0.365853 

0.349593 

0.355371 

0.355371 

0.356558 

Table  3.  Comparison  of  the  Coeffieients  of  Natural  Frequeneies 


10 

Stations 

20 

Stations 

30 

Stations 

40 

Stations 

50 

Stations 

100 

Stations 

200 

Stations 

a 

-6.63674 

-2.48727 

-2.48726 

2.048210 

2.048210 

2.048210 

2.048210 

ai 

-1.05161 

2.45007 

2.44008 

-2.11281 

-0.49484 

-0.49484 

-0.48251 

Table  4. 


Error  Ratios  of  the  Natural  Frequency  Coefficients 


3,  Analysis  of  H-3  Helicopter  with  an  Articulated  Rotor  Blade 

The  first  three  mode  shapes  for  H-3  (S-61)  helicopter  for  both  flatwise  and 
edgewise  axes  are  shown  in  Figures  14  and  15,  respectively.  Numerical  values  for  the 
centrifugal  force,  natural  frequencies,  and  the  ratio  of  natural  frequency  to  rotational 
speed  are  listed  below  each  figure.  Additional  plots  for  the  fourth  and  fifth  mode  shapes 
are  attached  in  APPENDIX  C. 
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Figure  14.  Flatwise  Mode  Shape  for  Hinged  Blade 


The  results  for  Flatwise  Axis: 

Number  of  Mode  shapes:  3 

Centrifugal  Foree  is  :  4.515809216498805e+004 

The  Natural  Frequeneies  are  (epm): 

212.94221371078  554.01302042580  1006.88151545715 

The  ratio  of  the  Natural  Frequeney  to  Rotational  Speed  is: 
1.04897642222062  2.72912817943742  4.96000746530618 
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Edgewise  Mode  Shapes  at  Operational  Rotational  Velocity 
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Figure  15.  Edgewise  Mode  Shape  for  Hinged  Blade 

The  results  for  Edgewise  Axis: 

Number  of  Mode  shapes:  3 

Centrifugal  Foree  :  4.515809216498805  e+004 

The  Natural  Frequeneies  are(epm): 

64.45769531250  713.63831103516  1828.18136248779 

The  ratio  of  the  Natural  Frequeney  to  Rotational  Speed  is: 
0.31752559267241  3.51545966027171  9.00581951964430 


4,  Analysis  of  H-3R  Helicopter  with  a  Hingeless  Rotor  Blade 

The  first  three  mode  shapes  for  H-3R  helicopter  for  both  flatwise  and  edgewise 

axes  are  shown  in  Figures  16  and  17,  respectively.  Numerical  values  for  the  centrifugal 

force,  natural  frequencies,  and  the  ratio  of  the  natural  frequency  to  rotational  speed  are 
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listed  below  each  figure.  Additional  plots  for  the  fourth  and  fifth  mode  shapes  are 
attached  in  APPENDIX  C. 


The  results  for  Flatwise  Axis: 

Number  of  Mode  shapes:  3 

Centrifugal  Force  :  4.515809216498805e+004 

The  Natural  Frequencies  are(cpm): 

224.72100000000  582.81300000000  1068.79500000000 

The  ratio  of  the  Natural  Frequency/Rotational  Speed  is: 
1.10700000000000  2.87100000000000  5.26500000000000 
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Edgewise  Mode  Shapes  at  Operational  Rotational  Velocity 
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Figure  17.  Edgewise  Mode  Shape  for  Hingeless  Blade 


The  results  for  Edgewise  Axis: 

Number  of  Mode  shapes:  3 

Centrifugal  Eorce  :  4.515809216498805e+004 

The  Natural  Erequencies  are(cpm): 

147.98700000000  842.24700000000  2051.72100000000 

The  ratio  of  the  Natural  Erequency/Rotational  Speed  is: 
0.72900000000000  4.14900000000000  10.10700000000000 
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IV.  CONCLUSIONS  AND  RECOMMENDATIONS 


A  useful  method  for  ‘Blade  Dynamie  Analysis’  of  a  helieopter  design  is 
developed  in  this  thesis.  Myklestad  Extension  gives  very  good  results  when  it  is  utilized 
with  MATLAB®.  A  GUI  is  also  developed  in  order  to  provide  a  user-friendly  interfaee 
for  the  designer.  A  designer  ean  utilize  this  program  and  find  natural  frequeneies,  mode 
shapes  and  eentrifugal  foree  for  a  given  rotor  blade  with  varying  mass  and  stiffness 
distribution  and  any  root  and  boundary  eonditions.  By  eomparing  the  outputs  with  the 
aetual  data  or  reeent  researeh,  the  aeeuracy  and  the  reliability  of  the  program  have  been 
established  and  the  GUI  is  verified. 

In  this  thesis  the  theory  and  applieation  of  the  theory  to  MATLAB®  program  is 
explained  in  detail.  The  full  text  of  the  MATLAB®  eodes  is  attaehed  to  APPENDIX  A  in 
order  to  have  availability  of  further  researeh  on  Myklestad  Analysis  and  its  applieation  to 
JANRAD. 

This  thesis  provides  both  uneoupled  flatwise  and  edgewise  analysis  of  the 
helieopter  rotor  blade.  Although  the  theory  of  the  eoupled  fiatwise-edgewise  ease  axis  is 
presented  in  Chapter  III,  eorresponding  eoupled  MATLAB®  eodes  have  not  been 
generated  beeause  of  time.  Assumptions  for  the  analysis  are  given  in  Chapter  II. 

Blade  dynamies  is  a  eomplex  area  of  researeh.  Lurther  researeh  ean  be  done  on 
blade  dynamies  beyond  the  eigenvalue  analysis  presented  here.  If  the  blade  foreed 
response  is  desired,  the  assumptions  of  negleeting  the  damping,  the  aerodynamie  lift 
foree  aeting  on  the  blade  elements  and  the  drag  foree  aeting  on  the  blade  elements  ean  be 
removed  and  these  values  ean  be  plaeed  in  the  equations.  Henee,  a  modified  Myklestad 
Loreed  Response  Analysis  MATLAB®  program  ean  be  generated.  Also  a  eoupled 
analysis  (ineluding  fiatwise-edgewise-torsion),  whieh  is  not  ineluded  in  this  thesis,  ean  be 
added  to  the  program  for  more  detailed  analysis  on  rotor  blade  dynamies. 
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APPENDIX  A.  MATLAB®  PROGRAMS 


A.  HINGED  BLADE  ABOUT  FLATWISE  AXIS 


clear 


clc 


format  long 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


MYKLESTAD  ANALYSIS 
BASIC  PROGRAM 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  TABLE  B-1 


%  BASIC  BLADE  DATA 


%  H-1  HELICOPTER 


%  1-1  Planform,  Articulated  Blade 
%  Gross  Weight  120001b.  ,  ISOKnot  Design 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  Radius  of  the  stations  from  tip  to  root  are  (inch)  :  [372.00,  353.40,  334.80,  316.20 

%  297.60,  279.00,  260.40,  241.80,  223.20,  204.60,  186.00,  167.40,  148.80,  130.20 

%  111.60,  93.00,  74.40,  55.80,  37.20,  18.60,  12.63  ] 

"o 

R_n  =  [372.00,  353.40,  334.80,  316.20,  297.60,  279.00,  260.40,  241.80,  223.20,... 

204.60,  186.00,  167.40,  148.80,  130.20,  111.60,  93.00  ,  74.40  ,  55.80  ,... 
37.20  ,  18.60  ,  12.63  ] 

%  hinge  (e)  =  12.625  inches  for  H-1  Helicopter 


%Flatwise  Ixx(inch.' 

"4)  : 

[0. 

.97, 

1 . 93, 

1 . 95, 

1 . 

.99, 

o 

o 

Csl 

2.04, 

2.10,  2 

.19, 

2.29,  2 

%  2.45,  2.51, 

2 . 60, 

2  . 

.71, 

2.80, 

2 . 91, 

3. 

.04, 

4.40, 

45.00, 

75.00, 

75. 

00 

[0. 

.97, 

1.93, 

1.95, 

1.99, 

2. 

00, 

2.04, 

2.10,  2.19,  2, 

.29, 

2.35,  2.45,  2.51, 

2. 

,  60, 

2.71, 

2.80, 

2.91, 

3. 

04, 

4.40, 

45.00,  75.00, 

75. 

00 

%Segment  Weight (lb)  :  [2.56,  12.57,  9.51,  9.19,  9.18,  9.29,  9.03,  9.14,  9.45,  9.37, 

%  9.91,  9.94,  1.01,  9.73,  8.78,  9.06,  8.53,  10.51,  55.21,  84.17, 

%  20.46  ] 
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W_n  =  [2.56,  12.57,  9.51,  9.19,  9.18,  9.29,  9.03,  9.14,  9.45,  9.37,  9.91,  9.94,... 

10.01,  9.73,  8.78  ,  9.06,  8.53,  10.51,  55.21,  84.17,  20.46  ]  ; 

"o 

in_n  =  W_n/ (32 . 174*12)  ; 

"o 

%  Aliminum 
E_n  =  le7; 

"o 

n  =  length (R_n) ; 

"o 

%  n  represents  the  number  of  the  stations (segments) ; 


"o 


omega 

=  0; 

det  Be 

=  0; 

"o 

modeshp 

=  input  ('How  many  mode 

shapes  would  you  like? 

')  ; 

R  V 

=  2  03; 

"o 

RPM  (R  V) 

R  VI 

=  R  V  *  pi/30; 

"o 

radians  (R  VI) 

"o 

n 

%  Calculation  of  "Centrifugal  Force"  at  the  root: 


T_n(l)  =  m_n(l)  *  R_n(l)  *  R_V1^2;  %  (T_n)  and  radians  (R_V1) 

"o 

%  T_n(l)  is  the  "Centrifugal  Force  at  the  TIP" 

"o 

for  i  =  1  :  n-1, 

T_n (i+1) =T_n (i)  +  m_n(i+l)  *  R_n(i+1)  *  R_V1^2; 
end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

"o 

disp (  '  Centrifugal  Force  is  ;  '  ) 

disp (T_n (n) ) 

%  Displays  "Centrifugal  Force  at  r  =  12.63" 


k  =  1; 
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1 


1; 


for  omega_l  =  0  :  modeshp^2*R_V/500  :  2 . 1 *modeshp^2 *R_V, 

%  RPM  (omega_l) 

omega (k)  =  omega_l*2*pi/60;  %  radians  (omega (k)) 

F  =  eye (4 ) ; 


for  j  =  1 : n-1 , 

%  determine  length  of  the  segments; 
l_sn  =  R_n(j)  -  R_n(j+1); 

"o 

%  detemine  the  stiffness 
El  =  E_n  *  I_xx ( j ) ; 

"o 


G_n  =  [  1,  0, 

0,  1, 

0,  0, 

0,  0, 


0,  -m_n ( j +1 ) *omega ( k) ^2 ; 

0,  -T_n(j) 

1,  0 

1  sn,  1  ]  ; 


A  n 


[  1, 

l_sn, 

- (l_sn^2) /  (2*EI) 
-  (l_sn''3)  /  (3*EI) 


0, 

1, 

-l_sn/EI , 

- (l_sn^2) / (2*EI) 


0,  0  ; 

0,  -T_n(j)  ; 

1+ (T_n ( j ) *l_sn^2) / (2*EI)  ,  0 
(T_n(j) *l_sn-3) / (3*EI)  ,  1  ]; 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loop  for  j  -->  {  A_n,  G_n,  F_n  ) 


B_c  =  [  F(2,3),F(2,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det_bc(k)  =  det (B  c)  ; 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0  line" 

"o 

if  det_bc(k)  <  0.0001  &  det_bc(k)  >  -0.0001  %  elseif  loop  (1) 
omega_natural (i)  =  omega (k); 
i  =  i+1; 


else 


if  k  >1 


%  if  loop  (l.a) 
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s  =  k- 1 ; 

if  det_bc(k)  *  det_bc(:,s)  <0  % 

omega_natural (i)  =  (omega (k)  +  omega ( : 

i  =  i  +1; 

end;  % 

end;  % 

end;  % 


if  loop  (l.b) 
s) ) /2; 

end  of  if  (l.b) 
end  of  if  (l.a) 
end  of  elseif  (1) 


k  =  k+1; 
end; 


%  end  of  loop  for  omega_l 


%  Sorting  the  "Natural  Frequencies" 


%  Sort  and  convert  the  unit  of  natural  frequency  to  'cpm' 
for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 


end; 


"o 


"o 


for 


count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ; 

"o 

omega_new  =  100; 
omega_old  =  -100; 
flg_slope  =  1; 


%  end  of  loop  for  (m) 


%  radians  (omega_0)  , RPM  (omega_n) 

%  omega_new  i  in  RPM 
%  omega_old  is  in  RPM 


%  Determination  of  odd  or  even  mode  shapes 

"o 


R  =  rem (count, 2  )  ; 
if  R  ==1 
slope  =  1; 
elseif  R  ==  0; 
slope  =  -1; 
else 

display (' This  is  an  incorrect  mode  shape  input!') 


end 


%  end  of  'if  loop  R' 
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%  Initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det  bcnew  =  0; 


while  flag  ==  1, 


F  =  eye (4 ) ; 
if  omega_0  <  0, 
omega_0  =  0; 

end 


%  if  natural  frequency  is  negative,  make  it  zero 
%  end  of  if  loop  omega 


for  j  =  1 : n-1 , 


l_sn  =  R_n(j)  -  R_n(j+1); 


El  =  E_n  *  I_xx ( j ) ; 


G  n= 


[1, 

0, 

0, 

0, 


0, 

1, 

0, 

0, 


0,  -m_n ( j+1) *omega_0^2 

0,  -T_n(j) 

1,  0 

1  sn,  1 


A_n=[l, 

l_sn, 

- (l_sn-2) / (2*EI) , 
-(1  sn-'S)  /  (3*EI)  , 


0, 

1, 

-l_sn/EI , 

-  (1  sn''2)  /  (2*EI)  , 


0,  0 

0,  -T_n(j) 

1+ (T_n ( j ) *l_sn^2) / (2*EI) ,  0 

(T_n ( j ) *l_sn^3) / (3*EI) ,  1 


F_n  =  inv (G_n) *A_n; 
F  =  F  n  *  F; 


end; 


%  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(2,3),  F(2,4)  ;  F(4,3),  F(4,4)  ] ; 
det  be  =  det (B  c) ; 
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if  (abs (det_bc) <1000  |  abs (omega_old-omega_new) <le-10 ) , 

%  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  %  radians  (omega_0) ,  RPM 

"o 

if  abs (omega_old-omega_new) <le-10, 

disp (' Warning ! !  This  value  of  omega  may  be  in  error. 

end 

"o 

%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

"o 

else 

"o 

if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  -  (200*pi/30) *slope; 

else 

omega_new  =  omega_0  +  (200*pi/30) *slope; 

end; 

"o 

%  Rearrange  the  values 

"o 

omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 

"o 

elseif  flag_l  ==  2, 

if  abs (det_bcold  +  det_bc)  >  abs(det_bc)  &  det_bcnew 
if  det_bc  >  0, 

omega_new  =  omega_0  -  (200*pi/30) *slope; 

else 

omega_new  =  omega_0  +  (200*pi/30) *slope; 

end; 

"o 

%  Rearrange  the  values 
omega_old  =  omega_0; 


(omega_n) 

%  if  loop  l.a 

') 

%  end  of  'if  loop  l.a' 


%  else  for  if  loop  1 

%  if  loop  1 .b 
%  if  loop  1 .b . i 
%  radians (omega_new) 

%  else  for  if  loop  l.b.i 

%  end  of  'loop  if  l.b.i' 


%  elseif  for  if  loop  l.b 
==  0,  %  if  loop  l.b.ii 

%  if  loop  1 .b . ii  .  a 

%  else  for  if  loop  l.b.ii. a 

%  end  of  'if  loop  l.b.ii. a 
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oinega_0  =  omega_new; 
det  bcold  =  det  be; 


else 


%  else  for  if  loop  l.b.ii 


omega_0  =  (omega_new  +  omega_old) /2 ; 
det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  l.b.ii' 

else  %  else  for  if  loop  1-b 

if  ( (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)),%  if  loop  l.b.ii! 

omega_new  =  omega_0 ; 
det_bcnew  =  det_bc; 

elseif  ( (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)), 

%  elseif  for  if  loop  l.b.ii 

oinega_old  =  omega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  l.b.ii' 


omega_0  =  (omega_new  +  omega_old) /2 ; 


end; 


%  end  of  'if  loop  l.b' 


end; 


%  end  of  'if  loop  1' 


end; 


%  end  of  'while  loop' 


theta_n (count)  =  -B_c(l,2)  /  B_c(l,l); 

%  According  to  the  equation  we  can  also  use  as  :  theta_n (count) =  -B_c ( 2 , 2 ) /B_c (2 , 1 ) 


end 


%  end  of  loop  for  'count' 


for  m=  1  :  count 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1 
X_n ( : , 1 )  =  X_tip; 

F  =  eye  (4 ) ; 
for  j  =  1 : n-1 , 


%  for  loop  'm' 


%  for  loop  ' j ' 


l_sn  =  R  n ( j )  -  R  n(j+l); 
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El 


=  E  n  *  I_xx ( j ) ; 


G  n 


■[  1, 

0, 

0, 

0, 


0, 

1, 

0, 

0, 


0, 

0, 

1, 

1  sn. 


-in_n  ( j  +1 )  *  (omega_n  (m)  *pi/30)  "'2 
-T_n(j) 

0 


A_n  =[  1, 

l_sn, 

-  (l_sn''2)  /  (2*EI)  , 
-(1  sn''3)  /  (3*EI)  , 


0, 

1, 

-l_sn/EI , 

-  (1  sn''2)  /  (2*EI)  , 


0,  0 

0,  -T_n(j) 

1+ (T_n  (j  )  *l_sn''2)  /  (2*EI)  ,  0 

(T_n  ( j  )  *l_sn''3)  /  (3*EI)  ,  1 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

"O 

X_n ( ; , j+1)  =  F  *  X  tip; 


end; 


%  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


%  Get  the  total  deflection  at  each  radial  station 


deflection (m,  ; ) =X_n (4, ; )  ; 
plot  (  R_n/R_n(l),  2*X_n(4,;), 
grid  on; 

title  (  '  Flapwise  Mode  Shapes  at  Operational  Rotational  Velocity  '  ) ; 

xlabel  (  '  Blade  Station  (inches) '  )  ; 

ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 


end  %  end  of  for  loop  count 

hold  off 


disp('The  Natural  Frequencies  are (cpm) ;  ') 

disp (omega_n) 

"o 

disp ('The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is:  ') 
disp (omega_n/R_V) 


%  End  of  program  for  "  HINGED-FLATWISE  " 
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B 


HINGED  BLADE  ABOUT  EDGEWISE  AXIS 


clear 

clc 

format  long 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


MYKELSTAD  ANALYSIS 
BASIC  PROGRAM 
FOR  EDGEWISE 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  TABLE  B-1 


%  BASIC  BLADE  DATA 


"o 

"o 


%  H-1  HELICOPTER 


%  1-1  Planform,  Articulated  Blade 
%  Gross  Weight  120001b.  ,  ISOKnot  Design 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  Radius  of  the  stations  from  tip  to  root  are (inch)  :  [372.00,  353.40,  334.80,  316.20, 


"o 

297 

.  60, 

279 

.  00, 

260. 

40, 

241 , 

.  80, 

223, 

.20, 

204 

.  60, 

186. 

.  00, 

167  , 

,40, 

148  . 

.  80, 

130.20, 

"o 

111 

.  60, 

93. 

00, 

74.40 

,  55.80, 

,  37. 

.20, 

18  . 

60, 

12.63 

]  ; 

"o 

R 

n 

[372. 

00, 

353 

.40, 

334 

.  80, 

316. 

.20, 

297 

.  60, 

279. 

00, 

260 

.40, 

241 

.  80, 

223 

.20,  .  .  . 

204. 

60, 

186 

.  00, 

167 

.40, 

148  . 

.  80, 

130 

.20, 

Ill . 

60, 

93. 

00  , 

74  . 

40  , 

55. 

80  ,  .  .  . 

37.2 

0  , 

18  . 

60  , 

12  . 

63 

]  ; 

"o 

hinge  (e) 

=  12 

. 625  inches 

for 

H-1 

Held 

Lcopter 

"o 


%Edgewise  Ixx(inch.^4)  : 


"o 


I 

_YY 

=  [10.10, 

20 

.  30, 

20. 

50, 

20. 

60, 

20 

.80, 

20. 

90, 

23 

.70, 

24.00, 

24.30, 

24. 

80 

/  •  •  • 

27.00, 

27 

.30, 

28  . 

00, 

28. 

50, 

29 

.30, 

29. 

80, 

30 

.50, 

35.00, 

70.00, 

75. 

00 

f  ,  ,  , 

] 

75.00 

"o 

"O  1 

Segment 

Weight  (lb) 

:  [2. 

56, 

12 

.57, 

9. 

51, 

9.1 

9,  [ 

).18, 

.  9 

.29, 

9.03,  9 

.14,  9. 

45, 

9 

.37, 

"o 

9. 

91, 

9. 

94, 

1.01, 

9.73 

,  8. 

78, 

9. 

06, 

8.53,  10 

.51,  55 

.21 

t 

84.17, 

"o 

20 

.46 

] 

"o 

w 

n 

=  [2.56, 

12  . 

57,  9 

.51 

,  9 

.19, 

9. 

18, 

9.2 

9,  [ 

).03, 

.  9 

.14, 

9.45,  9 

.37,  9. 

91, 

9 

.94,  .  . 

10.01, 

9. 

73,  8 

.78 

t 

9.06 

,  8 

.  53 

,  10 

.51, 

55. 

.21 

,  84 

.17,  20. 

46 

] 

"o 

m  n  =  W_n/ (32 .174*12) ; 


%  Aliminum 
E_n  =  le7; 

"o 

n  =  length (R_n) ; 

"o 

%  n  represents  the  number  of  the  stations (segments) ; 


omega 

=  0; 

det  Be 

=  0; 

"o 

modeshp 

=  input 

(  ' How  many  mode 

shapes  would  you  like? 

')  ; 

"o 

R  V 

=  2  03; 

"o 

RPM  (R  V) 

R  VI 

=  R  V  * 

pi/30 ; 

"o 

radians  (R  VI) 
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%  Calculation  of  "Centrifugal  Force"  at  the  root: 


T_n(l)  =  in_n(l)  *  R_n(l)  *  R_V1^2;  %  (T_n)  and  radians  (R_V1) 

"o 

%  T_n(l)  is  is  the  "Centrifugal  Force  at  the  TIP" 

"o 

for  i  =  1  :  n-1, 

T_n (i+1) =T_n (i)  +  m_n(i+l)  *  R_n(i+1)  *  R_V1^2; 
end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

"o 

disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

%  Displays  "Centrifugal  Force  at  r  =  12.625  " 

"o 

"O— ——————————————————————————————————————————————————————————————————————————————— 


k  =  1; 

i  =1; 

"o 

for  oinega_l  =  0  :  inodeshp''2*R_V/500  :  2 . 1  *modeshp''2 *R_V, 

%  RPM  (omega_l) 

omega (k)  =  omega_l*2*pi/60;  %  radians  (omega (k)) 

F  =  eye (4 ) ; 

"o 


for  j  =  1 : n-1 , 

%  determine  length  of  the  segments; 
l_sn  =  R_n(j)  -  R_n(j+1); 

"o 

%  detemine  the  stiffness 
El  =  E_n  *  I_yy ( j ) ; 


G_n  =  [  1,  0, 

0,  1, 

0,  0, 

0,  0, 


0, 

0, 

1, 

1  sn. 


-m_n ( j +1 ) * (omega (k) ^2  +  R_V1^2); 
-Tln(j) 

0 

1  ]  ; 


A_n  =  [  1, 


0, 


0, 


0 


1  sn. 


1, 


0, 


-T_n(j) 


- (l_sn^2) / (2*EI) ,  -1  sn/EI, 


1+ (T_n ( j ) *l_sn^2) / (2*EI) ,  0 


-  (l_sn''3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn''3 )  /  ( 3*EI )  ,  1 

]  ; 

"o 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loop  for  j  -->  {  A_n,  G_n, 

F_n  ) 

"o 

"o 


B_c  =  [  F(2,3),F(2,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k)  =  det (B  c)  ; 


o\o  o\o 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0 
line" 

"o 

if  det_bc(k;)  <  0.0001  &  det_bc(k;)  >  -0.0001  %  elseif  loop  (1) 
omega_natural (i)  =  omega (k); 
i  =  i+1; 

else 

if  k  >1,  %  if  loop  (l.a) 

s  =  k- 1  ; 


if  det_bc(k)  *  det_bc(:,s)  <0  %  if  loop  (l.b) 

omega_natural (i)  =  (omega (k)  +  omega (;,s))/2; 
i=i+l; 


end; 

"o 

end 

of 

if  (l.b) 

end; 

"o 

end 

of 

if  (l.a) 

end; 

"o 

end 

of 

elseif  (1) 

"o 

k  = 

end; 

k+1; 

"o 

end 

of 

loop  for  omega  1 

%  Sorting  the  "Natural  Frequencies" 

"o 

%  Sort  and  convert  the  unit  of  natural  frequency  to  'cpm' 
for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 
end;  %  end  of  loop  for  (m) 


for  count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30)  ; 

"o 

omega_new  =  100; 
omega_old  =  -100; 
flg_slope  =  1; 

"o 

"o 


%  radians  (omega_0)  , RPM  (omega_n) 

%  omega_new  i  in  RPM 
%  omega_old  is  in  RPM 


%  Determination  of  odd  or  even  mode  shapes 

"o 

R  =  rem (count, 2  )  ; 
if  R  ==1 
slope  =  1; 
elseif  R  ==  0; 
slope  =  -1; 
else 

display (' This  is  an  incorrect  mode  shape  input!') 

end  %  end  of  'if  loop  R' 

"o 

"o 


%  Initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0 ; 

"o 

"o 
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while  flag  ==  1, 

F  =  eye (4 ) ; 
if  omega_0  <  0, 
omega_0  =  0; 

D 

end 

"o 

for  j  =  1 :  n-1 , 

"o 

l_sn  =  R_n(j)  -  R_n(j+1); 

"o 

El  =  E_n  *  I  yy  ( j ) ; 


T_n  (j  ) 


G_n=[l, 

0, 

0, 

0, 

"o 

A_n=[l, 
1  sn. 


0, 

1, 

0, 

0, 


0, 

0, 

1, 

1  sn. 


0, 

1, 


%  if  natural  frequency  is  negative,  make  it 
%  end  of  if  loop  omega 


-m_n  ( j +1 )  *  (omega_0^2  +  R_V1''2) 
-T_n(j) 

0 


0, 

0, 


- (l_sn^2) / (2*EI) ,  -l_sn/EI, 

-(1  sn^3) / (3*EI) ,  - (l_sn^2) / (2*EI)  , 


1+  (T_n  (j  )  *l_sn''2)  /  (2*EI)  , 
(T  n (j ) *l_sn^3) / (3*EI) , 


F_n  =  inv (G_n) *A_n; 
F^=  F  n  *  f7 


end; 

G  n,  F  n) 


%  end  of  loo  for  j  -->  {  l_sn,  El,  A_n, 


B_c  =  [  F(2,3),  F(2,4)  ;  F(4,3),  F(4,4)  ] ; 
det  be  =  det (B  c) ; 


"o 

if  (abs (det_bc) <1000  |  abs (omega_old-omega_new) <le-10 ) , 

%  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  %  radians  (omega_0),  RPM 

"o 

if  abs (omega_old-omega_new) <le-10, 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 

end 


loop  1 


loop  1 


l.b 

l.b.i 


"o 

%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0 ; 

"o 

else 


if  flag_l  ==  1, 

if  det  be  >  0, 


omega_new  =  omega_0 

radians (omega_new) 


(200*pi/30) *slope; 


(omega_n) 

%  if  loop 

%  end  of  'if 


%  else  for  if 

%  if  loop 
%  if  loop 
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else 

%  else  for 

if 

loop  l.b.i 

omega  new  =  omega  0  +  (200*pi/30) *slope; 

end; 

%  end  of  'loop 

if 

l.b.i' 

%  Rearrange  the  values 

"o 

omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 


"o 


elseif 

flag_l  ==  2, 

%  elseif  for  if 

loop  l.b 

if 

abs(det  bcold  +  det  be)  > 

abs  (det  be)  &  det  benew  ==  0,  %  if  loop 

l.b.ii 

if  det  be  >  0, 

%  if  loop 

1 .b . ii  .  a 

omega  new  =  omega  0  - 

(200*pi/30) *slope; 

else 

%  else  for  if  loop 

1 .b . ii . a 

omega  new  =  omega  0  + 

(200*pi/30) *slope; 

end; 

%  end  of  'if  loop 

1 .b . ii . a 

%  Rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det  bcold  =  det  be; 


else  %  else  for  if  loop 

l.b.ii 

omega_0  =  (omega_new  +  omega_old) /2 ; 
det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop 

l.b.ii' 

else  %  else  for  if 

loop  1-b 

if  ( (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)), 

%  if  loop  1 .b . ill 

oinega_new  =  omega_0  ; 
det_bcnew  =  det_bc; 

elseif  ( (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)), 

%  elseif  for  if  loop  l.b.ii 

omega_old  =  omega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  l.b.ii' 


omega_0  =  (omega_new  +  omega_old) /2 ; 


%  end  of  'if  loop  l.b' 


%  end  of  'if  loop  1' 
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end; 


%  end  of  'while  loop' 


theta_n (count)  =  -B_c(l,2)  /  B_c(l,l); 

%  According  to  the  equation  we  can  also  use  as  :  theta_n (count) =  -B_c ( 2 , 2 ) /B_c (2 , 1 ) 


"o 

end  %  end  of  loop  for  'count' 


"o 


for  m=  1  :  count  %  for  loop  'm' 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 

X_n ( : , 1 )  =  X_tip; 

F  =  eye (4 ) ; 

for  j  =  l;n-l,  %  for  loop  'j' 

"o 


1  sn 


El 


G  n 


A  n 


R_n  (j  ) 

-  R_n(j+1) 

' 

E  n  *  I 

1 

LJ. 

1, 

0, 

0, 

-m 

n  ( j +1  )*(  (omega  n  (m)  *pi/30) ''2  +  R  VI' 

"2)  ; 

0, 

1, 

0, 

-T 

_n(j) 

; 

0, 

0, 

1, 

0 

; 

0, 

0, 

1  sn. 

1 

]  ; 

1, 

0, 

0, 

0 

1  sn. 

1, 

0, 

-T_n(j)  ; 

-  (1  sn"' 

2)  / (2*EI)  , 

-1_ 

sn/EI , 

1+(T  n (j ) *l_sn^2) 7 (2*EI) , 

0 

-  (1  sn 

"3)7 (3*EI) 

t 

- (1  sn^ 

'2)7  (2*EI)  , 

(T_n  (j  )  *l_sn''3)  7  (3*EI)  , 

1 

F_n  =  inv (G_n) *A_n; 
F  =  F  n  *  F; 


X_n(;,j+1)  =  F  *  X_tip; 


end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  Get  the  total  deflection  at  each  radial  station 


deflection (m, ; ) =X_n (4, ; ) ; 
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) 


plot  (  R_n/R_n(l),  2*X_n(4,;), 
grid  on; 

'  Chordwise  Mode  Shapes  at  Operational  Rotational  Velocity  '  ) ; 


title  ( 
xlabel  ( 
ylabel  ( 
hold  on 


Blade  Station  (inches) 
Relative  Deflection  ' 


end  %  end  of  for  loop  count 

hold  off 

disp('The  Natural  Frequencies  are (cpm) ;  ') 

disp (omega_n) 


disp('The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is:  ') 
disp (omega_n/R_V) 


%  End  of  Program  "  Hinged-Edgewise  " 

C.  HINGELESS  BLADE  ABOUT  FLATWISE  AXIS 

clear 

clc 

format  long 


MYKELSTAD 

HINGELESS  BLADE  FLATWISE 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  Table  B-17 


%  Basic  Blade  Data 


%  Hl-R  Helicopter 


%  1-1  Planform, Rigid  Blade 


%  Gross  Weight  120001b.  ,  150  Knot  Design 


"o  "o 

-k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 


%  R_n  =  input ('Enter  the  radius  of  the  stations: 


')  ; 
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"o 

Radius 

of  the  stations  are ( 

inch) 

[372 

.00,  353 

.40,  334 

.80,  316 

.20,  297 

.60,  279. 

o 

o 

"o 

260.40, 

241.80, 

223.20,  204. 

60,  186. 

00, 

167.40, 

148.80, 

130.20, 

111 . 60, 

93.00,  74 

.40, 

"o 

55.80, 

37.20,  18 

.60,  12.63  ] 

"o 

R 

n 

^  [372.00, 

353.40,  334 

.  80, 

316 

.20, 

297.60, 

279.00, 

260.40, 

241.80, 

223.20, . 

204.60, 

186.00,  167 

.40, 

148 

.  80, 

130.20, 

111.60, 

93.00, 

74.40, 

55.80,  . 

37.20,  18.60,  12.63,  0  ]  ; 

"o 

%  Flatwise  Ixx(inch.4) 

"o 

I_xx  =  [0.97,  1.93,  1.95,  1.99,  2.00,  2.04,  2.10,  2.19,  2.29,  2.35,  2.45,  2.51,... 

2.60,  2.71,  2.80,  2.91,  3.04,  4.40,  5.00,  5.00,  5.00  ]  ; 

"o 

%  Aliminum 
E_n  =  le7; 

"o 

n  =  length (R_n) ; 

"o 

%  Segment  Weight(lb)  :  [2.56,  12.57,  9.51,  9.19,  9.18,  9.29,  9.03,  9.14,  9.45,  9.37,  % 

%9. 91, 

%  9.94,  1.01,  9.73,  8.78,  9.06,  8.53,  10.51,  55.21,  84.17,  20.46]; 

"o 

Weight_n  =  [2.56,  12.57,  9.51,  9.19,  9.18,  9.29,  9.03,  9.14,  9.45,  9.37,  9.91,  9.94,... 

10.01,  9.73,  8.78,  9.06,  8.53,  10.51,  55.21,  84.17,  20.46,  0  ]  ; 

"o 

m_n  =  Weigh t_n/ (32.174*12); 


omega  =  0 ; 
det  Be  =  0 ; 


modeshp  =input('How  many  mode  shapes  would  you  like?  '); 


-k  -k 


R_V  =  203; 

R_V1=  R_V  *  pi/30; 

T_n(l)  =  m_n(l)  *  R_n(l)  *  R_V1^2; 

"o 

for  i  =  1  :  n-1, 

T  n (i+1) =T_n (i)  +  m_n(i+l)  *  R_n(i+1)  *  R  V1^2; 


%  R_V  is  in  RPM 
%  R_V1  is  in  radians 
%  the  unit  is  radians 
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end;  %  end  of  loop  for  i-->  {  T_n(i)  } 
disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 


"o 


k  =  1; 

1  =  1; 

for  omegal  =  0  :  modeshp^2*R_V/500  :  2 . l*modeshp^2*R_V,  %  omegal  is  in  RPM 

omega (k)  =  omegal *2 *pi/ 60 ;  %  omega (k)  is  in  radians 

F  =  eye (4 ) ; 


for  j  =  1 : n-1 , 

l_sn  =  R_n(j)  -  R_n(j+1); 


El  =  E_n  *  I_xx(j); 


G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0, 

0, 

1, 

l_sn. 


-m_n ( j +1 ) *omega ( k) ^2 ;  %  omega (k)  is  in  radians 
-T_n(j) 

0 

1  ]  ; 


A_n=[l,  0, 

l_sn,  1, 

- (l_sn^2) / (2*EI) ,  -1  sn/EI, 


0,  0; 

0,  -T_n(j) 

l+(T_n(j)*l  sn^2) /  (2*EI) , 


-  (l_sn''3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn^3 )  /  ( 3*EI )  , 


0; 

1]  , 


F_n  =  inv (G_n) *A_n; 
F  =  F  n  *  F; 


end; 


%  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),F(3,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k)  =  det (B  c)  ; 


if  k  >1, 
s  =  k- 1 ; 

if  det_bc(k)  *  det_bc(:,s)  <  0 

omega_natural (i)  =  (omega (k)  +  omega (:,s))/2; 

i=i+l; 
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end; 

end; 


k  =  k+1; 

end;  %  end  of  loop  for  omegal 


for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 

end; 


for  count  =  1  :  modeshp 

omega_0  =  omega_n (count) *pi/30;  %  omega_0  is  in  radians  ,  omega_n  is  in  RPM 

omega_new  =  100;  %  omega_new  is  in  RPM 

omega_old  =  -100;  %  omega_old  is  in  RPM 

flg_slope  =  1; 


%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2 ) ; 

if  R  ==1 

slope  =  1; 

elseif  R  ==  0; 

slope  =  -1; 

else 

display  (' This  is  an  incorrect  mode  shape  input!') 

end  %  end  of  'if  loop  R' 


%  initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det  bcnew  =  0; 
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while  flag  ==  1, 

F  =  eye (4 ) ; 
if  omega_0  <  0, 

omega_0  =  0;  %  if  real  part  of  natural  frequency  is  negative 

value  make  it  zero 

end  %  end  of  if  loop  omega 

"o 


for  j  =  1 : n-1 , 

"o 

l_sn  =  R_n(j)  -  R_n(j+1); 

"5 

El  =  E_n  *  I_xx(j); 


"O 


G_n=[l, 

radians 

0, 

0, 

-m 

n(j+l)*omega  0"2  ; 

%  omega 

0, 

1, 

0, 

-T 

n(j) 

0, 

0, 

1, 

0 

; 

0, 

0, 

1  sn. 

1 

]  ; 

"o 

A_n=[l, 

0, 

0, 

0 

1  sn. 

1, 

0, 

-T_n(j) 

- (1  sn^ 

'2)7  (2*EI)  , 

-1  sn7EI, 

1+ (T  n (j ) *1  sn"2) 7  (2*EI) , 

0 

- (1  sn" 

'3)7 (3*EI) , 

-  (1  sn' 

'2) 7  (2*EI) ,  (T_n (j ) *l_sn"3) 7 (3*EI) 

1  ] 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),  F(3,4)  ;  F(4,3),  F(4,4) 
det  be  =  det (B  c) ; 


if  (abs (det_bc) <10000  |  abs (omega_old-omega_new) <le-10) ,  %  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  %  omega_0  is  in  radians,  omega_n  is  in  RPM 


if  abs (omega_old-omega_new) <le-10. 


%  if  loop  1-a 
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disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  1-a' 


%  change  the  initial  values 
flag  =  0; 


flag_l  =  1; 
det_bcold  =  0; 
det  bcnew  =  0; 


else 


%  else  for  if  loop  1 


if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  - 

else 

omega_new  =  omega_0  + 

end; 

"o 


%  if  loop  1-b 

%  if  loop  1-b-i 

( 200*pi/30 ) *slope ;  %  omega_new  is  in  radians 

%  else  for  if  loop  1-b-i 
(200*pi/30) *slope;  %  omega_new  is  in  radians 
%  end  of  'loop  if  1-b-i' 


%  rearrange  the  values 


omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 

"5 

elseif  flag_l  ==  2,  %  elseif  for  if  loop  1-b 

if  abs (det_bcold  +  det_bc)  >  abs(det_bc)  &  det_bcnew  ==  0, 

%  if  loop  1-b-ii 


if  det_bc  >0,  %  if  loop  1-b-ii-a 

omega_new  =  omega_0  -  (200*pi/30) *slope; %omega_new  is  in  radians 
else  %  else  for  if  loop  1-b-ii-a 

omega_new  =  omega_0  +  (200*pi/30) *slope; %omega_new  is  in  radians 
end;  %  end  of  'if  loop  1-b-ii-a 

"o 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 

else  %  else  for  if  loop  1-b-ii 
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omega_0  =  (omega_new  +  omega_old) /2 ; 

%omega_old, new . and  0  are  in  radians 

det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  1-b-ii' 

else  %  else  for  if  loop  1-b 

if  ( (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)), 

%  if  loop  1-b-iii 

omega_new  =  omega_0 ; 
det_bcnew  =  det_bc; 

elseif  ( (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)), 

%  elseif  for  if  loop  1-b-ii 

omega_old  =  omega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-ii' 

omega_0  =  (omega_new  +  omega_old) /2 ; 

end;  %  end  of  'if  loop  1-b' 


end; 


%  end  of  'if  loop  1' 


end; 


%  end  of  'while  loop' 


"o 

theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 

"o 

end  %  end  of  loop  for  count 

"o 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 


'q 

for  m=  1  :  count  %  for  loop  count 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 

X_n ( : , 1 )  =  X_tip; 

F  =  eye (4 ) ; 

for  j  =  l:n-l,  %  for  loop  j 

"o 

l_sn  =  R_n(j)  -  R_n(j+1); 

"o 

El  =  E_n  *  I_xx(j); 

"O 

G_n=[l,  0,  0,  -m_n ( j +1 ) * (omega_n (m) *pi/30) ^2 ; 
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0,  1,  0,  -T_n(j); 

0,  0,  1,  0; 

0,  0,  l_sn,  1 ]  ; 


^[1, 

0, 

0, 

0; 

1  sn. 

1, 

0, 

-T_n (j ) ; 

-  (1  sn' 

'2) / (2*EI) , 

-1_ 

sn/EI, 

1+  (T_n  (j  )  *l_sn^2)  /  (2*EI)  , 

0 

-  (1  sn' 

'3) / (3*EI) , 

-  (1  sn' 

'2)7  (2*EI) 

,  (T_n(j) *l_sn-3) / (3*EI)  , 

1 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 

end;  %  end  of  loop  for  j  --> 

{  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 
deflection (m, ; ) =X_n (4, ; ) ; 
figure  (2) 

plot  (  R_n,  def lection (m, ;) , 
grid  on; 

title  (  '  Flapwise  Mode  Shapes  at  Operational  Rotational  Velocity  '  ) ; 
xlabel  (  '  Blade  Station  (inc) '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 

"o 

^•k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 

hold  off 

disp('The  Natural  Frequencies  are (cpm) :  ') 

disp (omega_n) 

"o 

disp  ('The  ratio  of  the  Natural  Frequency/Rotational  Speed  is:  ') 
disp (omega_n/R_V) 

"o 

%  End  of  the  Program  "  Hingeless-Flatwise  " 
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D 


HINGELESS  BLADE  ABOUT  EDGEWISE  AXIS 


clear 


clc 


format  long 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


MYKELSTAD  ANALYSIS 
BASIC  PROGRAM 
FOR  EDGEWISE 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  TABLE  B-1 


%  BASIC  BLADE  DATA 


%  H-1  HELICOPTER 


%  1-1  Planform,  Articulated  Blade 
%  Gross  Weight  120001b.  ,  ISOKnot  Design 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  Radius  of  the  stations  from  tip  to  root  are(inch)  :  [372.00,  353.40,  334.80,  316.20 


"o 

297 

.  60, 

279 

o 

o 

260. 

40, 

241 . 

o 

CO 

223 

.20, 

204 

.  60, 

186, 

o 

o 

167 

.40, 

148 

o 

CO 

130 

"o 

111 

.  60, 

93. 

o 

o 

74.40 

,  55 

o 

CO 

37  , 

.20, 

18. 

60, 

12 . 63 

"o 

R  n 

= 

[372  , 

o 

o 

353 

.40, 

334  . 

o 

CO 

316, 

.20, 

297 

.  60, 

279. 

o 

o 

260 

.40, 

241 

o 

CO 

223 

.20, 

204  , 

,  60, 

186 

o 

o 

167  . 

40, 

148  , 

o 

CO 

130 

.20, 

Ill . 

60, 

93. 

o 

o 

74  . 

40  , 

55. 

o 

CO 

37.20  ,  18.60  ,  12.63  ,0 
%  hinge (e)  =  12.625  inches  for  H-1  Helicopter 


%Edgewise  Ixx(inch.^4)  : 


I_yy 

=  [10. 

.10,  20. 

.30, 

20. 

50, 

20. 

o 

Csl 

O 

.80,  20 

.90, 

23 

.70, 

24.00 

,  24.30, 

24  . 

80 

27. 

,00,  27. 

.30, 

28. 

00, 

28  . 

.50,  29. 

.30,  29 

.80, 

30 

.  50, 

35.00 

,  26.00, 

26. 

00 

26. 

,  00 

"5 

%Segment 

Weight (lb)  : 

:  [2. 

56, 

12 

.57, 

,  9.51, 

9.19, 

9.18, 

,  9 

.29, 

9.03, 

9.14,  9. 

45, 

9 

"o 

9. 

91, 

9. 

94, 

1.01,  [ 

5.73,  8 

.78, 

9. 

06, 

8.53, 

10.51,  55 

.21 

/ 

"o 

20 

.46 
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W_n  =  [2.56,  12.57,  9.51,  9.19,  9.18,  9.29,  9.03,  9.14,  9.45,  9.37,  9.91,  9.94, 

10.01,  9.73,  8.78  ,  9.06,  8.53,  10.51,  55.21,  84.17,  20.46  ,0 

"o 

in_n  =  W_n/ (32.174*12)  ; 

"o 

%  Aliminum 
E_n  =  le7; 

"o 

n  =  length (R  n ) ; 


%  n  represents  the  number  of  the  stations ( segments ) 


omega  =  0; 
det_Bc  =  0; 

"o 

modeshp  =  input ('How  many  mode  shapes  would  you  like?  ' ) ; 


R_V 
R  VI 


203; 

R  V  *  pi/30; 


%  RPM  (R_V) 

%  radians  (R  VI) 


%  Calculation  of  "Centrifugal  Force"  at  the  root: 


Tn(l)  =mn(l)  *Rn(l)  *RV1^2; 


(T  n)  and  radians  (R  VI) 


%  T_n(l)  is  is  the  "Centrifugal  Force  at  the  TIP" 

"o 

for  i  =  1  :  n-1, 

T_n  (i  +  1)  =T_n  (i)  +  m_n(i  +  l)  *  R_n(i  +  1)  *  R_V1''2; 
end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

"o 

disp  (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

%  Displays  "Centrifugal  Force  at  r  =  12.63" 


=  1; 
=  1; 
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for  omega_l  =  0  :  modeshp^2*R_V/500  :  2 . l*modeshp^2*R_V, 

%  RPM  (omega_l) 

omega (k)  =  omega_l *2 *pi/ 60 ;  %  radians  (omega (k)) 

F  =  eye ( 4 ) ; 

"o 

for  j  =  l;n-l, 

%  determine  length  of  the  segments; 
l_sn  =  R_n ( j )  -  R_n(j+1); 

"o 

%  detemine  the  stiffness 
El  =  E_n  *  I_yy ( j ) ; 


G  n 


[  1, 

0, 

0, 

0, 


0, 

1, 

0, 

0, 


0,  -m_n ( j +1 ) * (omega ( k) ^2  +  R_V1^2) 

0,  -T_n(j) 

1,  0 

l_sn,  1  ]  ; 


A_n  =  [  1, 

l_sn, 

- (l_sn-2) / (2*EI) , 
-(1  sn-3) / (3*EI) , 


0, 

1, 

-l_sn/EI , 

-  (l_sn-2) / (2*EI) , 


0,  0 

0,  -T_n(j) 

1+ (T_n (j ) *l_sn^2) / (2*EI) ,  0 
(T_n (j ) *l_sn^3) / (3*EI) ,  1 


F_n  =  inv (G_n) *A_n; 
F  =  F  n  *  F; 


end; 


%  end  of  loop  for  j  -->  {An,  G  n,  F_n 


B_c  =  [  F(3,3),F(3,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k)  =  det(B_c); 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0  line" 

"o 

if  det_bc(k)  <  0.0001  &  det_bc(k)  >  -0.0001  %  elseif  loop  (1) 
omega_natural (i )  =  omega(k); 
i  =  i+1; 

else 
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if  k  >1 


%  if  loop  (l.a) 


s  =  k-1; 


if  det_bc(k)  *  det_bc(;,s)  < 
omega_natural  (i)  =  (omega (k) 
i  =  i  +1; 
end; 

end; 

end; 


0  %  if  loop  (l.b) 

+  omega ( : , s) ) /2; 

%  end  of  if  (l.b) 

%  end  of  if  (l.a) 

%  end  of  elseif  (1) 


k  =  k+1; 
end; 


%  end  of  loop  for  omega_l 


%  Sorting  and  Displaying  the  "Natural  Frequencies" 

"o 


%  Sort  and  convert  the  unit  of  natural  frequency  to  'cpm' 
for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi; 
end;  %  end  of  loop  for  (m) 

"o 


count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ; 

"o 

omega_new  =  100; 
omega_old  =  -100; 
flg_slope  =  1; 


%  radians  (omega_0)  , RPM  (omega_n) 

%  omega_new  i  in  RPM 
%  omega_old  is  in  RPM 


%  Determination  of  odd  or  even  mode  shapes 

"o 


R  =  rem (count, 2)  ; 
if  R  ==1 
slope  =  1; 
elseif  R  ==  0; 
slope  =  -1; 
else 
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display (' This  is  an  incorrect  mode  shape  input!') 


end 


%  Initial  values 
flag  =  1 ; 
flag_l  =  1; 
det_bcold  =  0; 
det  bcnew  =  0; 


while  flag  ==  1, 


%  end  of  'if  loop  R' 


F  =  eye ( 4 ) ; 
if  omega_0  <  0, 

omega_0  =0;  %  if  natural  frequency  is  negative,  make  it  zero 

end  %  end  of  if  loop  omega 

"o 

for  j  =  l:n-l, 

"o 


l_sn  =  R_n ( j )  -  R_n(j+1); 

"o 

El  =  E_n  *  I_yy ( j  )  ; 


[1, 

0, 

0, 

-m 

n  (j +1 )* (omega  0^2  +  R  V1^2) 

0, 

1, 

0, 

-T 

_n(j) 

0, 

0, 

1, 

0 

; 

0, 

0, 

1  sn. 

1 

]  ; 

[1, 

0, 

0, 

0 

1  sn. 

1, 

0, 

-T_n(j) 

-  (l_sn^2)  /  (2*EI)  ,  -l_sn/EI,  1+ (T_n  ( j  )  *l_sn''2 )  /  ( 2*EI )  ,  0 

- (l_sn^3) / (3*EI) ,  - (l_sn^2) / (2*EI) ,  (T_n ( j ) *l_sn^3) / (3*EI ) ,  1 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),F(3,4)  ;  F ( 4 , 3 ) , F ( 4 ,  4 )  ] ; 
det  be  =  det (B  c) ; 


73 


l.b.i 


if  (abs (det_bc) <10000  |  abs (omega_old-omega_new) <le-10 ) , 

%  if  loop  1 

omega_n (count)  =  omega_0*30/pi ;  %  radians  (omega_0),  RPM  (omega_n) 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  l.a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  l.a' 

"o 

%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

"o 

else  %  else  for  if  loop  1 

"o 

if  flag_l  ==  1,  %  if  loop  l.b 

if  det_bc  >0,  %  if  loop 

omega_new  =  omega_0  -  (200*pi/30) *slope;  %  radians (omega_new) 
else  %  else  for  if  loop  l.b.i 

omega_new  =  omega_0  +  (200*pi/30) *slope; 
end;  %  end  of  'loop  if  l.b.i' 

"o 

%  Rearrange  the  values 

"o 

omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 

"5 

elseif  flag_l  ==  2,  %  elseif  for  if  loop  l.b 

if  abs (det_bcold  +  det_bc)  >  abs (det_bc)  &  det_bcnew  ==  0, 

%  if  loop  l.b.ii 

if  det_bc  >0,  %  if  loop  l.b.ii. a 
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omega_new  =  omega_0  -  (200*pi/30) *slope; 
else  %  else  for  if  loop  l.b.ii.a 

omega  new  =  omega  0  +  (2 00*pi/30 ) *  slope; 


end; 

"o 

%  Rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det  bcold  =  det  be; 


%  end  of  'if  loop  l.b.ii.a 


else  %  else  for  if  loop  l.b.ii 

omega_0  =  (omega_new  +  omega_old) /2 ; 
det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  l.b.ii' 

else  %  else  for  if  loop  1-b 

if  (  (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)),%  if  loop 

l.b.ii! 


omega_new  =  omega_0; 

det_bcnew  =  det_bc; 

elseif  (  (det_bc  <  0  &  det_bcnew  >  0) 
elseif  for  if  loop  l.b.ii 

omega_old  =  omega_0; 

det_bcold  =  det_bc; 

end; 

"o 

omega_0  =  (omega_new  +  omega_old) /2 ; 


end; 


end; 


end; 


(det  be  >  0  &  det  benew  <  0)),% 


%  end  of  'if  loop  l.b.ii' 


%  end  of  'if  loop  l.b' 


%  end  of  'if  loop  1' 


%  end  of  'while  loop' 


"o 

theta_n (eount)  =  -B_o(2,2)  /  B_o(2,l); 

%  Aeeording  to  the  equation  we  ean  also  use  as  :  theta_n (eount) =  -B_o (2 , 2 ) /B_o ( 2 , 1 ) 

"o 

end  %  end  of  loop  for  'eount' 
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for  in=  1  :  count  %  for  loop  'm' 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ] ; 

X_n ( : , 1 )  =  X_tip ; 

F  =  eye ( 4 ) ; 

for  j  =  l:n-l,  %  for  loop  'j' 

"o 

l_sn  =  R_n(j)  -  R_n(j+1); 

"5 

El  =  E_n  *  I_yy ( j ) ; 

"O 

G_n  =[  1,  0,  0,  -in_n  (j+1)  *  (  (omega_n  (m)  *pi/30) ''2  +  R_V1^2)  ; 

0,  1,  0,  -T_n(j) 

0,  0,  1,  0 

0,  0,  l_sn,  1  ]  ; 

"o 

A_n  =[  1,  0,  0,  0  ; 

l_sn,  1,  0,  -T_n(j) 

- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / ( 2*EI )  ,  0 

-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn''2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn'' 3 )  /  ( 3*EI )  ,  1  ] 

"o 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

"O 

X_n(;,j+1)  =  F  *  X_tip; 

"o 

end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  Get  the  total  deflection  at  each  radial  station 

"o 

deflection (m, ; ) =X_n (4, ; ) ; 
plot  (  R_n,  2*X_n(4,;), 

%plot  (  R_n,  2*X_n(4,;),  ' - ' ) ; 

grid  on; 

title  (  '  Chordwise  Mode  Shapes  at  Operational  Rotational  Velocity  '  ) ; 
xlabel  (  '  Blade  Station  (inc)  '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 
hold  off 
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disp('The  Natural  Frequencies  are(cpin):  ') 
disp (omega_n) 

"o 

disp  ('The  ratio  of  the  Natural  Frequency/Rotational  Speed  is:  ') 
disp (omega_n/R_V) 

"o 

%  end  of  program  "HINGELESS-EDGEWISE" 

E.  HINGED  NONROTATING  UNIFORM  BLADE  TEST 

clear 

clc 

format  long 

%  Test  of  Hinged  Nonrotating  Uniform  Beam  % 

%  Corresponding  Data  Supported-Free  Beam  % 

%  Uniform  blade 
R  =  372  ; 

I XX  =  238.23; 

weight  =  316.6; 

segment  =  372/50; 

segment_I  =  238.23/50; 

segment_W  =  316.6/50; 

z  =  1  ; 

r_n  =  R; 

r_n(51)  =  0.00001; 

I_xx(51)  =  0.0001; 

Weight_n (51) =  0.0001; 

I_xx(l)  =  segment_I; 

Weight_n(l)  =  segment_W; 

"o 

for  seg  =  2:50 

r_n(seg)  =  r_n(z)  -  segment; 

I_xx(seg)  =  segment_I; 

Weight_n (seg)  =  segment_W; 

z  =  z+1; 

end; 

"5 

E_n  =  3e7; 

"o 
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n  =  length (r_n); 


m_n  =  Weight_n/ (32.174*12); 


omega  =  0; 
det_Bc  =  0; 

modeshp  =input('How  many  mode  shapes  would  you  like?  '  )  ; 

^-k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 


R_V  =0;  % 

R_V1=  R_V  *  pi/30;  % 

T_n(l)  =0;  % 

"o 

for  1=1:  n-1, 

T_n (i+1) =T_n (i)  +  m_n(i+l)  *  r_n(i+l) 

end;  % 

disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 


Nonrotatrng  Blade  rotatronal  speed  should  be  0 
R_V1  is  in  radians 
the  unit  is  radians 

*  R_V1^2; 

end  of  loop  for  i-->  {  T_n(i)  } 


'^•k-k-k'k-k-ki 


k  =  1; 
i  =  1; 

for  omegal  =  0  :modeshp^2 : 2 .  l*modeshp''2*200,  %  omegal  is  in  RPM 

omega (k)  =  omegal*2*pi/60;  %  omega (k)  is  in  radians 

F  =  eye ( 4 ) ; 


for  j  =  l:n-l, 

l_sn  =  r_n ( j )  -  r_n(j+l); 


El  =  E_n  *  I_xx(j); 


G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0,  -m_n  ( j +1 )  *omega  (k) ''2  ; 

0,  -T_n(j) 

1,  0 

l_sn,  1  ]  ; 


A_n= [ 1 , 

l_sn. 


0, 

1, 


0,  0; 

0,  -T_n(j); 
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0; 

1]  ; 


-  (l_sn^2)  /  (2*EI)  ,  -l_sn/EI,  1+ (T_n  ( j  )  *l_sn''2 )  /  ( 2*EI )  , 

- (l_sn^3) / (3*EI) ,  - (l_sn^2) / (2*EI) ,  (T_n ( j ) *l_sn^3 ) / ( 3*EI ) , 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(2,3) ,F(2,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k;)  =  det(B_c); 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0 
%line" 


if  det_bc(k;)  <  0.0001  &  det_bc(k;)  >  -0.0001  %  elseif  loop  (1) 
omega_natural  (i )  =  omega(k;); 
i  =  i+1; 
else 

if  k  >1,  %  if  loop  (l.a) 

s  =  k-1; 


if  det_bc(k)  *  det_bc(:,s)  < 
omega_natural (i )  =  (omega (k) 
1=1+1; 
end; 

end; 

end; 


0  %  if  loop  (l.b) 

+  omega ( : , s) ) /2; 

%  end  of  if  (l.b) 

%  end  of  if  (l.a) 

%  end  of  elseif  (1) 


k  =  k+1; 

end;  %  end  of  loop  for  omega_l 

"o 


for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi; 

end; 


oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


for  count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ; 
omega_new  =  100; 
omega_old  =  -100; 


%  omega_0  is  in  radians  ,  omega_n  is  in  RPM 
%  omega_new  is  in  RPM 
%  omega_old  is  in  RPM 


79 


flg_slope  =  1; 


"o 

%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2)  ; 

if  R  ==1 

slope  =  1; 

elseif  R  ==  0; 

slope  =  -1; 

else 

display (' This  is  an  incorrect  mode  shape  input!') 
end  %  end  of  'if  loop  R' 

"o 

%  initial  values 
flag  =  1 ; 
flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

while  flag  ==  1, 

F  =  eye  ( 4 ) ; 
if  omega_0  <  0, 

omega_0  =  0 ;  %  if  real  part  of  natural  frequency  is  negative  value  make  it 

%zero 


end  %  end  of  if  loop  omega 


for  j  =  l:n-l. 


"5 

l_sn  =  r_n ( j )  -  r_n(j+l); 

"O 

El  =  E_n  *  I_xx(j); 

"O 

G_n=[l, 
is  in  radians 

0, 

0, 

0, 

"o 

A_n= [ 1 , 
l_sn. 


,  -l_sn/EI, 


0,  0, 

1,  0, 

0,  1, 

0,  l_sn, 

0, 

1, 


-m_n  ( j  +1 )  *omega_0''2 


-T_n(j) 

0 

1  ]  ; 

0,  0 

0, 

1+  (T_n  (j  )  *l_sn^2)  /  (2*EI)  , 
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%  omega_0 


- (l_sn^2) / (2*EI) 


-T_n(j) ; 
0 


-  (l_sn''3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn''3 )  /  ( 3*EI )  ,  1 

"o 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


is 


in 


B_c  =  [  F(2,3),  F(2,4)  ;  F(4,3),  F(4,4)  ]  ; 
det_bc  =  det(B_c); 

"o 

if  (abs (det_bc) <100  |  abs (omega_old-omega_new) <le-10) ,  %  if  loop  1 

omega_n (count)  =  omega_0*30/pi ;  %  omega_0  is  in  radians,  omega_n 


RPM 


"o 


"o 

if 


end 


"o 


abs (omega_old-omega_new) <le-10, 
disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 

%  end  of 


%  if  loop  1-a 

'if  loop  1-a' 


%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

else  %  else  for  if  loop  1 


1-b-ii 


if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  - 

else 

omega_new  =  omega_0  + 

end; 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 
elseif  flag_l  ==  2, 

if  abs (det  bcold  +  det  be) 


%  if  loop  1-b 
%  if  loop  1-b-i 

(2 00*pi/ 30 ) *  slope;  %  omega_new  is  in  radians 

%  else  for  if  loop  1-b-i 
(2 00 *pi/30 ) *  slope;  %  omega_new  is  in  radians 

%  end  of  'loop  if  1-b-i' 


%  elseif  for  if  loop  1-b 
>  abs  (det_bc)  &  det_bcnew  ==  0,  %  if  loop 


if  det_bc  >  0, 

omega_new  =  omega_0 


(200*pi/30) *slope; 
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%  if  loop  1-b-ii-a 


%  omega  new  is  in  radians 

else  %  else  for  if  loop  1-b-ii-a 

omega_new  =  omega_0  +  (2 00*pi/30 ) *  slope; 

%  omega  new  is  in  radians 

end;  %  end  of  'if  loop  1-b-ii-a 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 

else  %  else  for  if  loop  1-b-ii 

omega_0  =  (omega_new  +  omega_old) /2 ;  %  omega_old, new  and  0  are  in 

radians 

det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  1-b-ii' 

else  %  else  for  if  loop  1-b 

if  (  (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)),  %  if 

loop  1-b-iii 

omega_new  =  omega_0; 
det_bcnew  =  det_bc; 

elseif  (  (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)),  % 

elseif  for  if  loop  1-b-ii 

omega_old  =  omega_0; 

det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-ii' 

omega_0  =  (omega_new  +  omega_old) /2 ; 

end;  %  end  of  'if  loop  1-b' 


end;  %  end  of  'if  loop  1' 


end;  %  end  of  'while  loop' 

"o 

theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 
end  %  end  of  loop  for  count 

^  ************************************************************************************** 
"o 

for  m=  2  :  count  %  for  loop  count 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 

X_n ( : , 1 )  =  X_tip ; 

F  =  eye (4) ; 

for  j  =  l;n-l,  %  for  loop  j 
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l_sn  =  r_n ( j )  -  r_n(j+l); 


El  =  E_n  *  I_xx(j); 

0,  -m_n  ( j+1)  *  (omega_n  (m)  *pi/30)  ''2; 
0,  -T_n(j); 

1,  0; 

l_sn,  1 ]  ; 


G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


A_n= [ 1 , 

l_sn, 

- (l_sn"2) /  (2*EI) , 
- (l_sn"3) /  (3*EI) , 


0, 

0, 

0; 

1, 

0, 

-T_n(j) 

-1 

sn/EI,  1+ (T  n  ( j ) *1 

_sn^2) / (2*EI) , 

(1  sn' 

'2)/(2*EI),  (T_n(j)*l_ 

sn^3) / (3*EI) , 

0; 


1]  ; 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 

end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 
deflection (m, ; ) =X_n (4, ; ) ; 

"o 

plot  (  r_n/r_n(l),  2 *def lection (m, ;) , 
grid  on; 

axis  (  [0  1  -2  2]  ) 

title  (  '  Hinged  Nonrotating  Uniform  Blade  Comparison  (50  stations)  '  ); 
xlabel  (  '  Blade  Station  (inc)  '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 
hold  on 


%  The  University  of  Texas  Publication  uniform  beam 


%  Clamped-Free  Beams 

'5“ —————————————————— 


Deflection_tx_mod3  =  [  2.00000,  1.6861,  1.37287,  1.06189,  0.75558,... 

0.45702,  0.16974,  -0.10243,  -0.35563,  -0.58594,... 
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-0.78975,-0.96375,  -1.10515,  -1.21175,  -1.28189,. 
-1.31485,  -1.31055,  -1.26974,  -1.19398,  -1.08559, 
-0.94753,  -0.78359,  -0.59802,  -0.39555,  -0.18130, 


0.03937, 

0.26103, 

0.47822, 

0.68568, 

0.87841 

1.05185, 

1.20196, 

1.32534, 

1 .41931, 

1 . 48203 

1 . 51248, 

1.51046, 

1 . 47707, 

1 .41376, 

1 . 32324 

1.20901, 

1.07535, 

0.92728, 

0.77049, 

0. 61120 

0.45614, 

0.31238, 

0.18727, 

0.08829, 

0.02339 

0]  ; 


Deflection  tx_mod2  =  [2.0000,  1.80877,  1.61764,  1.42680,  1.23660,  ... 


1.04750, 

0.86004,  0.67484,  0. 

49261,  0.31409,... 

0.14007, 

-0.02865,  -0.19123, 

-0.34687, 

-0.49475,  .. 

-0.63410, 

-0.76419,  -0.88431, 

-0.99384, 

-1.09222,  . 

-1.17895, 

-1.25365,  -1.31600, 

-1.36578, 

-1.40289,  . 

-1 .42733, 

-1.43920,  -1.43871, 

-1.42619, 

-1.40209,  . 

-1.36694, 

-1.32141,  -1.26626, 

-1.20236, 

-1.13068,  . 

-1 .05227, 

-0.96827,  -0.87992, 

-0.78852, 

-0.69544,  . 

-0.60211, 

-0.51002,  -0.42070, 

-0.33573, 

-0.25670,  . 

-0.18526, 

0]  ; 

-0.12305,  -0.07174, 

-0.03301, 

-0.00853,  .  . 

Def lection_tx_modl  =  [2.0000,  1 

1 . 72480, 
1.45096, 
1.18175, 
0.92227, 
0.67905, 
0.45977, 
0.27297, 
0.12774, 
0.03355, 
0]  ; 


94494,  1 

88988,  1 

.83483,  1 

. 77980,  .  .  . 

1 .66985, 

1.61496, 

1.56016, 

1.50549, . . 

1.39660, 

1 . 34247, 

1.28859, 

1.23500,  .  . 

1.12889, 

1.07646, 

1 . 02451, 

0.97309,  . 

0.87209, 

0.82262, 

0.77392, 

0.72603,  .  . 

0.63301, 

0.58800, 

0.54408, 

0.50131,  .  . 

0.41952, 

0.38065, 

0.34322, 

0.30730,  .  . 

0.24030, 

0.20936, 

0.18024, 

0.15301,  . 

0.10452, 

0.08340, 

0.06449, 

0.04784,  .  . 

0.02168, 

0.01231, 

0.00552, 

0.00139,  .  .  . 

%  Clamped-Supported  Beam 


Deflection_tex_modl  =  [2.00000,  1.84282,  1.68568,  1.52869,  1.37202,... 
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1.21590,  1.06060,  0.90647,  0.75386, 
0.45486,  0.30935,  0.16712,  0.02866,- 
-0.23500,-0.35923,-0.47775,-0.59009,- 
-0.79450,-0.88574,-0.96918,-1.04447,- 
-1.16950,-1.21875,-1.25894,-1.28992,- 
-1.32402,-1.32714,-1.32106,-1.30588,- 
-1.24904,-1.20786,-1.15858,-1.10157,- 
-0. 96 60 6, -0.88849, -0. 80507, -0.71636, - 
-0.52547,-0.42455,-0.32086,-0.21507,- 
0]  ; 


Deflection  tex  mod2  = 


[2.00000,  1.71729, 
0.60415,  0.33937, 
-0.58802,-0.77300, 
-1.25518,-1.30380, 
-1.20092,-1.10569, 
-0.51204,-0.32640, 
0.45136,  0.63460, 
1.21281,  1.30395, 
1.40010,  1.35450, 
0.91976,  0.75879, 
0]  ; 


1.43502,  1.15424, 
0.08494,-0.15633,- 
-0.93412,-1.06927,- 
-1 . 32224,-1 . 31068, - 
-0.98634,-0.84553,- 
-0.13323,  0.06348, 
0.80569,  0.96112, 
1.36930,  1.40755, 
1.28198,  1.18399, 
0.58271,  0.39504, 


Deflection  tex  mod3 


[2.00000,  1.59173, 
0.03009,-0.30845, 
-1.21523,-1.29988, 
-1.02863,-0.82967, 
0.23807,  0.51362, 
1.31263,  1.39411, 
1.14631,  0.95356, 
-0.11017,-0.39391, 
-1.25980,-1.36386, 
-1.20573,-1.03085, 
0]  ; 


1.18532,  0.78508, 
-0.60968,-0.86560,- 
-1.32158,-1.28137,- 
-0.59110,-0.32637,- 
0.76897,  0.99330, 
1.41807,  1.38344, 
0.72134,  0.45927, 
-0.66123,-0.90103,- 
-1.41124,-1.39996,- 
-0.81313,-0.56162,- 


x_over_l(51)  =  0; 
w  =  51; 

for  q  =  50 : -1 : 1, 

x_over_l(q)=  x_over_l (w)  +  0.02; 

w  =  w- 1 ; 


0.60318, . 
0.10554, . 
0.69582, . 
1 . 11133,  . 
1.31162,  . 
1.28180,  . 
1.03725,  . 
0.62295,  . 
0.10789,  . 


0.87658,  . 
0.38158,  . 
1.17673,  . 
1.26983,  . 
0.68631,  . 
0.25968,  . 
1.09776,  . 
1.41789,  . 
1 . 06244,  . 
0.19951,  . 


0.39742,  . 
1.06927,  . 
1.18195,  . 
0.04596,  . 
1.17711,  . 
1.29160,  . 
0.17821,  . 
1.10335,  . 
1.33049,  . 
0.28677,  . 


85 


end; 

plot  (x_over_l,  Deflection_tex_mod3,  'r--') 
hold  on 

plot  (x_over_l,  Def lection_tex_mod2 ,  'g--') 

hold  on 

plot  (  x_over_l,  Def lection_tex_modl ,  'm--') 

hold  off 


disp('The  Natural  Frequencies  are(cpm):  ') 
disp (omega_n) 

"o 

"o 

%  Comparison  of  the  Natural  Frequencies: 

"o 

%  HARTOG (  Mechanical  Vibrations  -  page:432); 

%  "Hinged-free"  beam  or  wing  of  autogyro  may  be  considered  as  half  a  "free-free" 
%for  even  a-numbers 

a_hartog  =  [0,  15.4,  50.0,  104,  178  ] ; 

"o 

%  Dana  Young: 

%  Second  derivative  of  Clamped-Supported  is  Free-Supported (hinged) , 
betal_young=  [0,  15.418206,  49.964862,  104,247697,  178.269730  ] ; 

%  Our  Program: 
if  modeshp  >  5 
com  =  5; 

else 

com  =  modeshp; 

end 

"o 

for  1=1: (com-1 ) ; 

compare  (i)  =  omega_n(i)/omega_n(i+l); 
a_hartog_compare (i)  =  a_hartog(i)  /  a_hartog (i+1 ) ; 
betal_young_compare (i)  =  betal_young (i )  /  betal_young ( i+1 ) ; 

end 

display  (  '  According  to  Hartog  the  coefficients  are:  ') 
disp(  a_hartog_compare) 

display  (  '  According  to  Young  and  Felgar  the  coefficients  are:  ') 
disp(  betal_young_compare) 

display  (  '  According  to  Our  Program  the  coefficients  are:  ') 


beam 
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disp(  compare) 


"o 

for  j  =  1:  (com-1 ) 

if  betal_young_compare ( j )  ==  0; 

accuracy  (j)  =  compare(j)  *  100; 

else 

accuracy  (j)  =  (compare(j)  /  betal_young_compare ( j )  -  1)  *100; 
end 

end 

disp  (  'The  Error  of  the  Natural  Frequencies  (% )  '  ) 

disp  (  accuracy) 

"o 

%  end  of  program  "HINGED-TEST" 

F.  HINGELESS  NONROTATING  UNIFORM  BLADE  TEST 

clear 

clc 

format  long 

■^■^'©■^■^■^■^■^'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O 

%  Hingeless  Nonrotating  Uniform  Blade  Comparison  % 

%  Corresponding  Data  is  Clamped-Free  Beam  % 

"o 

%  Uniform  blade 
R  =  372  ; 

I XX  =  58.23; 

weight  =  316.6; 

segment  =  372/50; 

segment_I  =  58.23/50; 

segment_W  =  316.6/50; 

z  =  1  ; 

r_n  =  R; 

r_n(51)  =  0.00001; 

I_xx(51)  =  0.0001; 

Weight_n (51) =  0.0001; 

I_xx(l)  =  segment_I; 

Weight_n(l)  =  segment_W; 

"o 


for  seg  =  2:50 
r_n ( seg) 


=  r  n  (z) 


segment ; 
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I_xx(seg)  =  segment_I; 

Weight_n (seg)  =  segment_W; 

z  =  z+1; 

end; 

"o 

E_n  =  3e7; 

"o 

n  =  length (r_n) ; 

"o 

m_n  =  Weight_n/ ( 32 . 1 74 *12 )  ; 

"o 

omega  =  0; 
det_Bc  =  0; 

modeshp  =input('How  many  mode  shapes  would  you  like?  ' ) ; 

^•k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 

R_V  =  0;  %  Operational  Velocity  should  be  zero 

R_V1=  R_V  *  pi/30;  %  R_V1  is  in  radians 

T_n(l)  =  m_n(l)  *  r_n(l)  *  R_V1^2;  %  the  unit  is  radians 

"5 

for  i  =  1  :  n-1, 

T_n (i+1) =T_n (i)  +  m_n(i+l)  *  r_n(i+l)  *  R_V1^2; 

end;  %  end  of  loop  for  i-->  {  T_n(i)  } 
disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

"o 

^■k  'k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  it  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  it  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  it  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  it  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  it  -k  -k  it  -k  -k 

k  =  1; 
i  =  1; 

for  omegal  =  0  :  modeshp^2  :  2 . 1 *modeshp^2 *2 00 ,  %  omegal  is  in  RPM 

omega (k)  =  omegal*2*pi/60;  %  omega (k)  is  in  radians 

F  =  eye  (4) ; 

"o 

for  j  =  l:n-l, 

l_sn  =  r_n ( j )  -  r_n(j+l); 

El  =  E_n  *  I_xx(j); 
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G_n= [ 1 ,  0 , 

0,  1, 

0,  0, 

0,  0, 

A_n=[l,  0,  0,  0; 

l_sn,  1,  0,  -T_n(j); 

-  (l_sn^2)  /  (2*EI)  ,  -l_sn/EI,  1+ (T_n  ( j  )  *l_sn''2 )  /  ( 2*EI )  ,  0; 

- (l_sn^3) / (3*EI) ,  - (l_sn^2) / (2*EI) ,  (T_n ( j ) *l_sn^3 ) / ( 3*EI ) ,  1]; 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

B_c  =  [  F(3,3) ,F(3,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det_bc(k;)  =  det(B_c); 

if  k  >1, 
s  =  k-1; 

if  det_bc(k)  *  det_bc(:,s)  <  0 

omega_natural  (i )  =  (omega (k)  +  omega (:, s )) /2 ; 

i=i+l; 

end; 

end; 

k  =  k+1; 

end;  %  end  of  loop  for  omegal 

"o 

for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi; 

end; 

for  count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ;  %  omega_0  is  in  radians  ,  omega_n  is  in  RPM 

omega_new  =100;  %  omega_new  is  in  RPM 

omega_old  =  -100;  %  omega_old  is  in  RPM 

flg_slope  =  1; 


0,  -m_n  (3 +1 )  *omega  (k) ''2  ; 

0,  -T_n(j) 

1,  0 

1  sn,  1  ]  ; 
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%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2)  ; 

if  R  ==1 

slope  =  1; 

elseif  R  ==  0; 

slope  =  -1; 

else 

display (' This  is  an  incorrect  mode  shape  input!') 
end  %  end  of  'if  loop  R' 

"o 

%  initial  values 
flag  =  1 ; 
flag_l  =  1 ; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

while  flag  ==  1, 

F  =  eye ( 4 ) ; 
if  omega_0  <  0, 
omega_0  =  0; 

%  if  real  part  of  natural  frequency  is  negative  value  make  it  zero 
end  %  end  of  if  loop  omega 

"o 

for  j  =  l:n-l. 


"o 

l_sn  =  r_n ( j )  -  r_n(j+l); 

"O 


El  =  E_n  *  I_xx ( j ) ; 

"O 

G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0, 

0, 

1, 

1  sn. 


-m_n  ( j +1 )  *omega_0''2  ;  %  omega_0  is  in  radians 

-T_n(j) 

0 

1  ]  ; 


A_n= [ 1 , 
l_sn, 

- (l_sn"2) /  (2*EI) , 
- (l_sn"3) / (3*EI) , 


0, 

1, 

-l_sn/EI , 

- (l_sn"2) /  (2*EI) , 


0, 

0, 

1+ (T_n ( j ) *l_sn^2) / (2*EI)  , 
(T_n ( j ) *l_sn^3) / (3*EI) , 
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0 


-T_n(j)  ; 
0 


1 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

B_c  =  [  F(3,3),  F(3,4)  ;  F(4,3),  F(4,4)  ]  ; 
det  be  =  det (B  c) ; 


if  (abs (det_bc) <100  |  abs (omega_old-omega_new) <le-10) ,  %  if  loop  1 

omega_n (count)  =  omega_0*30/pi ;  omega_0  is  in  radians,  omega_n  is  in  RPM 

"o 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  1-a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  1-a' 

"o 


%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

else  %  else  for  if  loop  1 


if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  - 

else 

omega_new  =  omega_0  + 

end; 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 
elseif  flag_l  ==  2, 

if  abs (det  bcold  +  det  be) 


%  if  loop  1-b 
%  if  loop  1-b-i 

(2 00*pi/30 ) *  slope;  %  omega_new  is  in  radians 

%  else  for  if  loop  1-b-i 
(2 00 *pi/ 30 ) *  slope;  %  omega_new  is  in  radians 

%  end  of  'loop  if  1-b-i' 


>  abs (det_bc) 
%  if  loop 


%  elseif  for  if  loop 
&  det_bcnew  ==  0, 

1-b-ii 


1-b 


if  det_bc  >0,  %  if  loop  1-b-ii-a 

omega_new  =  omega_0  -  (200*pi/30) *slope; 

%  omega  new  is  in  radians 
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radians 


radians 


else  %  else  for  if  loop  1-b-ii-a 

omega_new  =  omega_0  +  (200*pi/30 ) *slope;  %  omega_new  is  in 

end;  %  end  of  'if  loop  1-b-ii-a 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 

else  %  else  for  if  loop  1-b-ii 

omega_0  =  (omega_new  +  omega_old) /2 ;  %  omega_old, new  and  0  are  in 

det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  1-b-ii' 

else  %  else  for  if  loop  1-b 

if  ( (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)), 

%  if  loop  1-b-iii 

omega_new  =  omega_0; 
det_bcnew  =  det_bc; 

elseif  ( (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)), 

%  elseif  for  if  loop  1-b-ii 

omega_old  =  oinega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-ii' 

omega_0  =  (omega_new  +  omega_old) /2 ; 

end;  %  end  of  'if  loop  1-b' 


end; 


%  end  of  'if  loop  1' 


end; 


%  end  of  'while  loop' 


theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 
end  %  end  of  loop  for  count 


-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 


for  m=  1  :  count 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 
X_n ( : , 1 )  =  X_tip ; 

F  =  eye ( 4 ) ; 
for  j  =  l:n-l. 


%  for  loop  count 


%  for  loop  j 
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l_sn  =  r_n ( j )  -  r_n(j+l); 


El  =  E_n  *  I_xx ( j ) ; 

0,  -in_n  ( j+1)  *  (omega_n  (m)  *pi/30)  "'2; 
0,  -T_n(j); 

1,  0; 

l_sn,  1 ]  ; 


G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


A_n= [ 1 , 

l_sn, 

-  (l_sn''2)  /  (2*EI)  , 
- (l_sn"3) /  (3*EI) , 


0, 

0, 

0; 

1, 

0, 

-T_n(j) 

-l_sn/EI,  1+  (T_n  ( j  )  *l_sn''2)  /  (2*EI)  , 
- (l_sn^2) / (2*EI) ,  (T_n (j ) *l_sn^3) / (3*EI) , 


0; 


1]  ; 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 

end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 

deflection (m, ; ) =X_n (4, ; ) ; 

plot  (  r_n/r_n(l),  2 *def lection (m, ;) , 

grid  on; 

axis  (  [0  1  -2  2]  ) 

title  (  '  Hingeless  Nonrotating  Uniform  Blade  Comparison  (50  stations)  '  ); 
xlabel  (  '  Blade  Station  (inc)  '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 
hold  on 


%  The  University  of  Texas  Publication  uniform  beam 

%  Clamped-Free  Beams 


Deflection_tx_mod3  =  [  2.00000,  1.6861,  1.37287,  1.06189,  0.75558,... 

0.45702,  0.16974,  -0.10243,  -0.35563,  -0.58594,... 
-0.78975,-0.96375,  -1.10515,  -1.21175,  -1.28189,.. 
-1.31485,  -1.31055,  -1.26974,  -1.19398,  -1.08559,. 
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-0.94753,  -0.78359,  -0.59802,  -0.39555,  -0.18130, 


0.03937, 

0.26103, 

0.47822, 

0.68568, 

0.87841 

1.05185, 

1.20196, 

1.32534, 

1 .41931, 

1 . 48203 

1 . 51248, 

1.51046, 

1 . 47707, 

1 .41376, 

1.32324 

1.20901, 

1.07535, 

0.92728, 

0.77049, 

0. 61120 

0.45614, 

0.31238, 

0.18727, 

0.08829, 

0.02339 

0]  ; 


Deflection_tx_mod2  =  [2.0000,  1.80877,  1.61764,  1.42680,  1.23660,  ... 


1.04750, 

0.86004,  0.67484,  0. 

49261,  0.31409,... 

0.14007, 

-0.02865,  -0.19123, 

-0.34687, 

-0.49475,  .. 

-0.63410, 

-0.76419,  -0.88431, 

-0.99384, 

-1.09222,  . 

-1.17895, 

-1.25365,  -1.31600, 

-1.36578, 

-1.40289,  . 

-1 .42733, 

-1.43920,  -1.43871, 

-1.42619, 

-1.40209,  . 

-1.36694, 

-1.32141,  -1.26626, 

-1.20236, 

-1.13068,  . 

-1 .05227, 

-0.96827,  -0.87992, 

-0.78852, 

-0.69544,  . 

-0 . 60211, 

-0.51002,  -0.42070, 

-0.33573, 

-0.25670,  . 

-0.18526, 

-0.12305,  -0.07174, 

-0.03301, 

-0.00853,  .  . 

0]  ; 

Deflection_tx_modl  =  [2.0000,  1.94494,  1.88988,  1.83483,  1.77980,... 


1 . 72480, 

1 .66985, 

1.61496, 

1.56016, 

1.50549,  . . 

1.45096, 

1.39660, 

1 . 34247, 

1.28859, 

1.23500,  .  . 

1.18175, 

1.12889, 

1.07646, 

1 . 02451, 

0.97309,  . 

0.92227, 

0.87209, 

0.82262, 

0.77392, 

0.72603,  .  . 

0.67905, 

0.63301, 

0.58800, 

0.54408, 

0.50131,  .  . 

0.45977, 

0.41952, 

0.38065, 

0.34322, 

0.30730,  .  . 

0.27297, 

0.24030, 

0.20936, 

0.18024, 

0.15301,  . 

0.12774, 

0.10452, 

0.08340, 

0.06449, 

0.04784,  .  . 

0.03355, 

0]  ; 

0.02168, 

0.01231, 

0.00552, 

0.00139,  .  .  . 

%  Clamped-Supported  Beam 


Deflection_tex_modl  =  [2.00000,  1.84282,  1.68568,  1.52869,  1.37202,... 

1.21590,  1.06060,  0.90647,  0.75386,  0.60318,... 

0.45486,  0.30935,  0.16712,  0.02866,-0.10554,... 
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-0.23500,-0.35923,-0.47775,-0.59009,-0.69582,. 
-0.79450,-0.88574,-0.96918,-1.04447,-1.11133,. 
-1.16950,-1.21875,-1.25894,-1.28992,-1.31162,. 
-1.32 402, -1.32714, -1.32 106, -1.30588, -1.28180,. 
-1.24904,-1.20786,-1.15858,-1.10157,-1.03725,. 
-0.96 60 6, -0.88849, -0.80507, -0.71 636, -0.62295,. 
-0.52547,-0.42455,-0.32086,-0.21507,-0.10789,. 
0]  ; 


Deflection  tex  mod2 


[2.00000,  1.71729,  1.43502,  1.15424,  0.87658,. 

0.60415,  0.33937,  0.08494,-0.15633,-0.38158,. 
-0.58802,-0.77300,-0.93412,-1.06927,-1.17673,. 
-1.25518,-1.30380,-1.32224,-1.31068,-1.26983,. 
-1.20092,-1.10569,-0.98634,-0.84553,-0.68631,. 
-0.51204,-0.32640,-0.13323,  0.06348,  0.25968,. 
0.45136,  0.63460,  0.80569,  0.96112,  1.09776,. 

1.21281,  1.30395,  1.36930,  1.40755,  1.41789,. 

1.40010,  1.35450,  1.28198,  1.18399,  1.06244,. 

0.91976,  0.75879,  0.58271,  0.39504,  0.19951,. 

0]  ; 


Deflection_tex_mod3  =  [2.00000,  1.59173,  1.18532,  0.78508,  0.39742,. 

0.0300  9,-0.308  45,-0. 60  968,-0.8  65  60,-1.06  92  7,  . 
-1.21523,-1.29988,-1.32158,-1.28137,-1.18195,. 
-1.02863,-0.82967,-0.59110,-0.32637,-0.04596,. 
0.23807,  0.51362,  0.76897,  0.99330,  1.17711,. 

1.31263,  1.39411,  1.41807,  1.38344,  1.29160,. 

1.14631,  0.95356,  0.72134,  0.45927,  0.17821,. 

-0.11017,-0.39391,-0.66123,-0.90103,-1.10335,  . 
-1.25980,-1.36386,-1.41124,-1.39996,-1.33049,. 
-1.20573,-1.03085,-0.81313,-0.56162,-0.28677,. 
0]  ; 


x_over_l(51)  =  0; 
w  =  51; 

for  q  =  50 : -1 : 1, 

x_over_l(q)=  x_over_l (w)  +  0.02; 

w  =  w- 1 ; 


end; 

plot  (x_over_l,  Def lection_tx_mod3 ,  'r--') 
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hold  on 


plot  (x_over_l,  Def lection_tx_mod2 ,  'g--') 

hold  on 

plot  (  x_over_l,  Def lection_tx_modl ,  'm--') 

hold  off 

"o 

-5=================================================================================: 

"o 

%  Comparison  of  the  Natural  Frequencies: 

"o 

%  HARTOG (  Mechanical  Vibrations  -  page:432); 

%  "Hinged-free"  beam  or  wing  of  autogyro  may  be  considered  as  half  a  "free-free" 
%for  even  a-numbers 

a_hartog  =  [3.52,  22.0,  61.7,  121.0,  200]; 

"o 

%  Dana  Young: 

%  Second  derivative  of  Clamped-Supported  is  Free-Supported (hinged) , 
betal_young=  [3.5150154,  22.034492,  61.697214,  120.901916,  199.859530]; 

%  Our  Program: 
if  modeshp  >  5 
com  =  5; 

else 

com  =  modeshp; 

end 

"o 

for  1=1: (com-1 ) ; 

compare  (i)  =  omega_n(i)/omega_n(i+l); 
a_hartog_compare (i)  =  a_hartog(i)  /  a_hartog (i+1 ) ; 
betal_young_compare (i)  =  betal_young ( i )  /  betal_young ( i+1 ) ; 

end 

display  (  '  According  to  Hartog  the  coefficients  are:  ') 
disp(  a_hartog_compare) 

display  (  '  According  to  Dana  Youn  the  coefficients  are:  ') 
disp(  betal_young_compare) 

display  (  '  According  to  Our  Program  the  coefficients  are:  ') 
disp(  compare) 

"o 

"o 

for  j  =  1 : (com-1 ) 


beam 
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if  betal_young_compare ( j )  ==  0; 

accuracy  (j)  =  compare(j)  *  100; 

else 

accuracy  (j)  =  ( compare ( j )  /  betal_young_compare ( j )  -  1)  *100; 
end 

end 

disp  (  'The  Accuracy  of  the  Natural  Frequencies (% )  '  ) 

disp  (  accuracy) 

"o 

%  end  of  program  "HINGELESS-TEST" 

G.  GUI  PROGRAMS 

1.  Call  function  file  of  the  Gui  page 

function  varargout  =  finalthesis (varargin) 

%  FINALTHESIS  Application  M-file  for  finalthesis . fig 
%  FIG  =  FINALTHESIS  launch  finalthesis  GUI. 

%  FINALTHESIS (' callback_name ' ,  ...)  invoke  the  named  callback. 

%  Last  Modified  by  GUIDE  v2 . 0  05-Sep-2002  13:06:07 

if  nargin  ==  0  %  LAUNCH  GUI 

fig  =  openf ig (mfilename, ' reuse ') ; 

%  Use  system  color  scheme  for  figure: 

set  (fig,  ' Color ' , get  (0,  ' def aultUicontrolBackgroundColor ' ) ) ; 

%  Generate  a  structure  of  handles  to  pass  to  callbacks,  and  store  it. 
handles  =  guihandles ( fig) ; 
guidata(fig,  handles); 


%  Call  the  popup  menu  callback  to  initialize  the  handles. data 
%  Field  with  the  current  value  of  the  popup 

"o 

%  (1)  Popup  Menu  "en" 

en_popupmenu_Callback (handles . en_popupmenu,  [] , handles) 
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%  (2)  Popup  Menu  "mode  shape" 

mode  shape_popupmenu_Callback;  (handles .mode  shape_popupmenu,  [], handles) 

"o 

%  (3)  Popup  Menu  "hinge" 

hinge_popupmenu_Callback;  (handles . hinge_popupmenu,  [] , handles) 

"o 

%  (4)  Popup  Menu  "axis" 

axis_popupmenu_Callback;  (handles . axis_popupmenu,  [] , handles) 

"o 

%  (5)  Popup  Menu  "form" 

form_popupmenu_Callback (handles . form_popupmenu, [] , handles) 


if  nargout  >  0 

varargout{l}  =  fig; 

end 

elseif  ischar (varargin{l} )  %  INVOKE  NAMED  SUBFUNCTION  OR  CALLBACK 

try 

if  (nargout) 

[varargout { 1 : nargout } ]  =  feval ( varargin { : } ) ;  %  FEVAL  switchyard 

else 

feval (varargin {:}) ;  %  FEVAL  switchyard 

end 

catch 

disp  (lasterr) ; 

end 

end 


%  I  ABOUT  CALLBACKS : 

%  I  GUIDE  automatically  appends  subfunction  prototypes  to  this  file,  and 
%|  sets  objects'  callback  properties  to  call  them  through  the  FEVAL 


98 


switchyard  above.  This  comment  describes  that  mechanism. 

Each  callback  subfunction  declaration  has  the  following  form: 
<SUBFUNCTION_NAME> (H,  EVENTDATA,  HANDLES,  VARARGIN) 

The  subfunction  name  is  composed  using  the  object's  Tag  and  the 
callback  type  separated  by  e.g.  ' slider2_Callback ' , 

' f igurel_CloseRequestFcn ' ,  ' axisl_ButtondownFcn ' . 

H  is  the  callback  object's  handle  (obtained  using  GCBO) . 

EVENTDATA  is  empty,  but  reserved  for  future  use. 

HANDLES  is  a  Structure  containing  handles  of  components  in  GUI  using 
tags  as  fieldnames,  e.g.  handles . figurel ,  handles . slider2 .  This 
structure  is  created  at  GUI  startup  using  GUIHANDLES  and  stored  in 
the  figure's  application  data  using  GUIDATA.  A  copy  of  the  structure 
is  passed  to  each  callback.  You  can  store  additional  information  in 
this  structure  at  GUI  startup,  and  you  can  change  the  structure 
during  callbacks.  Call  guidata(h,  handles)  after  changing  your 
copy  to  replace  the  stored  original  so  that  subsequent  callbacks  see 
the  updates.  Type  "help  guihandles"  and  "help  guidata"  for  more 
information . 

VARARGIN  contains  any  extra  arguments  you  have  passed  to  the 
callback.  Specify  the  extra  arguments  by  editing  the  callback 
property  in  the  inspector.  By  default,  GUIDE  sets  the  property  to: 
<MFILENAME> ( '<SUBFUNCTION_NAME>' ,  gcbo,  [],  guidata ( gcbo ) ) 

Add  any  extra  arguments  after  the  last  argument,  before  the  final 
closing  parenthesis. 


"o 

function  varargout  =  en_popupmenu_Callback (h,  eventdata,  handles,  varargin) 

"o 

val  =  get (h, 'Value ') ; 

"o 

switch  val 
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case  1  %  user  selected  'aliminum' 


E_n  =  le7; 
handles. en  =  E_n; 

case  2  %  user  selected  'composite' 
E_n  =  2e7; 
handles. en  =  E_n; 

case  3  %  user  selected  'steel' 

E_n  =  3e7; 
handles. en  =  E_n; 

case  4  %  user  selected  'titanium' 
E_n  =  2 . 5e7 ; 
handles. en  =  E  n; 


end 

"o 

guidata (h, handles )  %  Save  the  handles  structure  after  adding  data 

"o 


function  varargout  =  mode  shape_popupmenu_Callback (h,  eventdata,  handles, 

"o 

val  =  get (h, 'Value ') ; 

switch  val 

case  1  %  user  selected  '1  mode  shape' 
modeshp  =  1 ; 

handles. mode  shape  =  modeshp; 

case  2  %  user  selected  '2  mode  shape' 
modeshp  =  2 ; 

handles. mode  shape  =  modeshp; 


varargin) 


case  3  %  user  selected  '3  mode  shape' 
modeshp  =  3; 
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handles .mode  shape  =  modeshp; 


case  4  %  user  selected  '4  mode  shape' 
modeshp  =  4; 

handles. mode  shape  =  modeshp; 

case  5  %  user  selected  '5  mode  shape' 
modeshp  =  5; 

handles. mode  shape  =  modeshp; 


end 

"o 

guidata (h, handles )  %  Save  the  handles  structure  after  adding  data 


function  varargout  =  hinge_popupmenu_Callback;  (h,  eventdata,  handles,  varargin) 

"o 

val  =  get (h, 'Value ') ; 

"o 

switch  val 

case  1  %  user  selected  'hinged' 
hinge_option  =  1; 
handles . hinge  =  hinge_option; 

case  2  %  user  selected  'hingeless' 
hinge_option  =  2; 
handles . hinge  =  hinge_option; 


end 


"o 

guidata (h, handles )  %  save  the  handles  structure  after  adding  data 

"o 


"o 

function  varargout  =  axis_popupmenu_Callback;  (h,  eventdata,  handles,  varargin) 

"o 

val  =  get (h, 'Value ') ; 

"o 


101 


switch  val 


case  1  %  user  selected  'flatwise' 
axis_option  =  1; 
handles. axis  =  axis_option; 

case  2  %  user  selected  'edgewise' 
axis_option  =  2 ; 
handles. axis  =  axis_option; 

case  3  %  user  selected  'coupled' 
axis  option  =  3; 
handles. axis  =  axis_option; 


end 

"o 

guidata (h, handles )  %  save  the  handles  structure  after  adding  data 


function  varargout  =  form_popupmenu_Callback;  (h,  eventdata,  handles, 

"o 

val  =  get (h, 'Value ') ; 

"o 

switch  val 

case  1  %  user  selected  'uniform' 
form_option  =  1 ; 
handles . form  =  form_option; 

case  2  %  user  selected  'hingeless' 
form_option  =  2 ; 
handles . form  =  form_option; 


end 


"o 

guidata (h, handles )  %  save  the  handles  structure  after  adding  data 

"o 


"o 


varargin) 
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function  varargout  =  rpin_edit_Callback (h,  eventdata,  handles,  varargin) 

"o 

R_V  =  str2num (get (h, ' String ')) ; 
handles. rpm  =  R_V; 

"o 

guidata (h, handles ) ;  %  save  the  handles  structure  after  adding  data 


function  varargout  =  e_edit_Callback (h,  eventdata,  handles,  varargin) 

"o 

e  =  str2num (get  (h,  ' String ')) ; 
handles. e  =  e; 

"o 

guidata (h, handles )  ; 


"o 

function  varargout  =  radius_edit_Callback (h,  eventdata,  handles,  varargin) 

"o 


R  =  str2num (get  (h,  ' String ')) ; 
handles . radius  =  R; 

"o 

guidata (h, handles )  ; 


function  varargout  =  weight_edit_Callback (h,  eventdata,  handles,  varargin) 

"o 

weight  =  str2num (get (h, ' String ')) ; 
handles . weight  =  weight; 

"o 

guidata (h, handles )  ; 


function  varargout  =  inertia_edit_Callback (h,  eventdata,  handles,  varargin) 

"o 

I_xx  =  str2num (get (h, ' String ')) ; 
handles . inertia  =  I_xx; 

"o 

guidata (h, handles )  ; 
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function  varargout  =  cancel_pushbutton_Callback;  (h,  eventdata,  handles,  varargin) 


"o 

function  varargout  =  ok_pushbutton_Callback (h,  eventdata,  handles,  varargin) 


"o 

E_n 

"o 

modeshp 

"o 

hinge_option 

"o 

axis  option 


=  handles. en; 


=  handles. mode  shape; 


=  handles .hinge; 


=  handles .axis; 


form_option  =  handles . form; 


"o 


"o 


"o 


R  V 

=  handles. rpm; 

"O 

e 

=  handles. e; 

"o 

R 

=  handles . radius ; 

"O 

weight 

=  handles .weight; 

I  XX 

"o 

"o 

=  handles . inertia ; 

"6 

if 

hinge  option  ==  2  &  e  ~=  0 

Dialog 

errordlg (' Hingeless  Blade  Should  Have  0  Hinge-Offset!', 
Box ' , ' modal '  ) 

'  Offset  Error 

else 

"o 

n 

if  hinge_option  ==  1  &  e  ==  0 

errordlg (' Hinged  Blade  Should  Have  Hinge-Offset  Value!','  Offset  Error 
Dialog  Box2 ' , 'modal ' ) 

else 

"o 
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if  length (R)  ~=  length (weight )  |  length (R)  ~=  length (I_xx)  |  length (weight )  ~= 

length ( I_xx) 

errordlg ( ' The  Number  of  Stations  Should  Match Input  Error  Dialog 
Box ' , 'modal ' ) 

else 


if  form_option  ==  1  &  length (R)  >1 

warndlg('Use  More  Than  1  Stations  for  Only  Nonuniform  Blades Blade  Form 
Input  Warning  Dialog  Box modal ' ) 

else 


if 

else 


reset (gca) 

"o 

[cpm, ratio, tn]  =  operate (  E_n,  modeshp,  hinge_option,  axis_option,  form_option,  R_V,  e, 
R,  weight,  I_xx  ) ; 


if  length (cpm)  ==  1  ; 


R_V  <0|e<0|R<0|  weight  <  0  |  I_xx  <  0 

errordlg (' Invalid  Input  Value',  'Invalid  Input  Error  Dialog  Box ', 'modal ' ) 


valuel  =  cpm(l); 

strl  =  sprintf ('%. 2 f ', valuel ) ; 

set  (handles . cpml_text, ' String ' , strl ) ; 

value2  =  0; 

str2  =  sprintf ('%. 2 f ', value2 ) ; 

set  (handles . cpm2_text, ' String ' , str2 ) ; 

values  =  0; 

strS  =  sprintf ('%. 2f ', values) ; 

set  (handles . cpmS_text, ' String ' , strS) ; 

value4  =  0; 
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str4  =  sprintf ( ' % . 2 f ' , value4 ) ; 

set  (handles . cmp4_text, ' String ' , str4 ) ; 

"o 

values  =  0; 

str5  =  sprintf ('%. 2 f values ) ; 

set  (handles . cpmS_text, ' String ' , strS) ; 

end 


if  length (cpm)  ==  2 ; 
valuel  =  cpm(l); 
strl  =  sprintf ('%. 2 f valuel ) ; 
set  (handles  .  cpinl_text,  '  String '  ,  strl )  ; 

"o 

value2  =  cpm(2); 

str2  =  sprintf ('%. 2 f value2 ) ; 

set  (handles  .  cpin2_text,  '  String '  ,  str2 )  ; 

"o 

values  =  0; 

strS  =  sprintf ('%. 2f values)  ; 

set  (handles . cpmS_text, ' String ' , strS) ; 

"o 

value4  =  0; 

str4  =  sprintf ('%. 2 f value4 )  ; 

set  (handles . cmp4_text, ' String ' , str4 ) ; 

"o 

values  =  0; 

strS  =  sprintf ('%. 2 f values )  ; 

set  (handles  .  cpinS_text,  '  String '  ,  strS)  ; 

end 


if  length (cpm)  ==  S 
valuel  =  cpm ( 1 ) ; 
strl  =  sprintf ('%. 2 f valuel ) ; 
set  (handles . cpml_text, ' String ' , strl ) ; 

"o 

value2  =  cpm(2); 

str2  =  sprintf ('%. 2 f value2 ) ; 

set  (handles . cpm2_text,  ' String ' , str2 ) ; 

"o 

values  =  cpm(S); 
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str3  =  sprintf ('%. 2f values)  ; 

set  (handles . cpm3_text, ' String ' , str3) ; 

"o 

value!  =  0; 

str4  =  sprlntf ( ' % . 2 f ' , value! ) ; 

set  (handles . cmp4_text, ' String ' , str! ) ; 

"o 

values  =  0; 

str5  =  sprlntf ('%. 2 f values ) ; 

set  (handles . cpmS_text, ' String ' , strS) ; 

end 


If  length (cpm)  ==  4 
valuel  =  cpm(l); 
strl  =  sprlntf ('%. 2 f valuel ) ; 
set  (handles . cpml_text,  ' String ' , strl ) ; 

"o 

value2  =  cpm(2); 

str2  =  sprlntf ('%. 2 f value2 ) ; 

set  (handles  .  cpin2_text,  '  String '  ,  str2 )  ; 

"o 

valued  =  cpm(3); 

strS  =  sprlntf ('%. 2f valued)  ; 

set  (handles  .  cpin3_text,  '  String '  ,  str3)  ; 

"o 

value!  =  cpm(4); 

str!  =  sprlntf ('%. 2 f value! )  ; 

set  (handles . cmp4_text, ' String ' , str! ) ; 

"o 

values  =  0; 

strS  =  sprlntf ('%. 2 f values )  ; 

set  (handles . cpmS_text, ' String ' , strS) ; 

end 


If  length (cpm)  ==  S 
valuel  =  cpm(l); 
strl  =  sprlntf ('%. 2 f valuel ) ; 
set  (handles . cpml_text, ' String ' , strl ) ; 

"o 

value2  =  cpm(2); 
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str2  =  sprintf ( ' % . 2 f ' , value2 ) ; 

set  (handles . cpm2_text, ' String ' , str2 ) ; 

"o 

values  =  cpm(3); 

strS  =  sprintf ('%. 2f values) ; 

set  (handles . cpmS_text, ' String ' , strS) ; 

"o 

value4  =  cpm ( 4 ) ; 

str4  =  sprintf ('%. 2 f , value4 ) ; 

set  (handles . cmp4_text, ' String ' , str4 ) ; 

"o 

values  =  cpin(5); 

strS  =  sprintf ('%. 2 f values )  ; 

set  (handles . cpmS_text, ' String ' , strS) ; 

end 

"o 

'Q—  — —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  — 

if  length  (ratio)  ==  1 

"o 

vail  =  ratio  ( 1 )  ; 

strgl  =  sprintf ('%. 2f vail ) ; 

set  (handles . ratiol_text, ' String ' , strgl ) ; 

"o 

val2  =  0; 

strg2  =  sprintf ('%. 2f val2 ) ; 

set  (handles . ratio2_text, ' String ' , strg2 ) ; 

"o 

valS  =  0; 

strgS  =  sprintf ('%. 2f valS ) ; 

set  (handles . ratioS_text, ' String ' , strgS ) ; 

"o 

val4  =  0; 

strg4  =  sprintf ('%. 2f val4 ) ; 

set  (handles . ratio4_text, ' String ' , strg4 ) ; 

"o 

valS  =  0; 

strgS  =  sprintf ('%. 2f valS ) ; 

set  (handles . ratioS_text, ' String ' , strgS ) ; 

end 

"o 
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if  length (ratio) 


2 


vail  =  ratio ( 1 ) ; 

strgl  =  sprintf ( ' % . 2f ' , vail ) ; 

set  (handles . ratiol_text, ' String ' , strgl ) ; 

"o 

val2  =  ratio  (2)  ; 

strg2  =  sprintf ('%. 2f val2 ) ; 

set  (handles . ratio2_text, ' String ' , strg2 ) ; 

"o 

val3  =  0; 

strg3  =  sprintf  ('%. 2f val3 ) ; 

set  (handles . ratio3_text, ' String ' , strg3 ) ; 

"o 

val4  =  0; 

strg4  =  sprintf ('%. 2f val4 ) ; 

set  (handles . ratio4_text, ' String ' , strg4 ) ; 

"o 

val5  =  0; 

strg5  =  sprintf ('%. 2f val5 ) ; 

set  (handles . ratio5_text, ' String ' , strg5 ) ; 

end 


if  length  (ratio)  ==  3 

"o 

vail  =  ratio ( 1 )  ; 

strgl  =  sprintf ('%. 2f vail ) ; 

set  (handles . ratiol_text, ' String ' , strgl ) ; 

"o 

val2  =  ratio  (2)  ; 

strg2  =  sprintf ('%. 2f val2 ) ; 

set  (handles . ratio2_text, ' String ' , strg2 ) ; 

"o 

val3  =  ratio  (3)  ; 

strg3  =  sprintf ('%. 2f val3 ) ; 

set  (handles . ratio3_text, ' String ' , strg3 ) ; 

"o 

val4  =  0; 

strg4  =  sprintf ('%. 2f val4 ) ; 

set  (handles . ratio4_text, ' String ' , strg4 ) ; 

109 


val5  =  0; 

strg5  =  sprintf  (  ' % . 2f ' , val5 ) ; 

set  (handles . ratio5_text,  ' String ' , strg5 )  ; 

end 


if  length  (ratio)  ==  4 

"o 

vail  =  ratio ( 1 )  ; 

strgl  =  sprintf ('%. 2f vail ) ; 

set  (handles . ratiol_text, ' String ' , strgl ) ; 

"o 

val2  =  ratio  (2)  ; 

strg2  =  sprintf ('%. 2f val2 ) ; 

set  (handles . ratio2_text, ' String ' , strg2 ) ; 

"o 

val3  =  ratio  (3)  ; 

strg3  =  sprintf ('%. 2f val3 ) ; 

set  (handles . ratio3_text, ' String ' , strg3) ; 

"o 

val4  =  ratio  ( 4 )  ; 

strg4  =  sprintf ('%. 2f val4 ) ; 

set  (handles . ratio4_text, ' String ' , strg4 ) ; 

"o 

val5  =  0; 

strg5  =  sprintf ('%. 2f val5 ) ; 

set  (handles . ratio5_text, ' String ' , strg5 ) ; 

end 


if  length  (ratio)  ==  5% 

"o 

vail  =  ratio  ( 1 )  ; 

strgl  =  sprintf ('%. 2f vail ) ; 

set  (handles . ratiol_text, ' String ' , strgl ) ; 

"o 

val2  =  ratio  (2)  ; 

strg2  =  sprintf ('%. 2f val2 ) ; 

set  (handles . ratio2_text, ' String ' , strg2 ) ; 

no 


val3  =  ratio  (3)  ; 

strg3  =  sprintf  (  ' % . 2f ' , val3 ) ; 

set  (handles . ratio3_text, ' String ' , strg3 ) ; 

"o 

val4  =  ratio  ( 4 )  ; 

strg4  =  sprintf ('%. 2f val4 ) ; 

set  (handles . ratio4_text, ' String ' , strg4 ) ; 

"o 

val5  =  ratio ( 5 )  ; 

strg5  =  sprintf ('%. 2f val5 ) ; 

set  (handles . ratio5_text, ' String ' , strg5 ) ; 

end 


value_tn  =  tn; 

strin  =  sprintf  ('%. 2f value_tn) ; 
set  (handles . tn_text,  ' String ' ,  strin) ; 


"o' 


end 

"o 

ifelse 

for 

' hingeless ' 

end 

"o 

ifelse 

for 

' hinged ' 

end 

"o 

ifelse 

for 

'  inputs ' 

end 

"o 

ifelse 

for 

' form  inputs ' 

end 

"o 

ifelse 

for 

'invalid  inputs 

"o 

%  end  of  program  "FINALTHESIS" 

2.  Operation  Function 

function  [ cpm, ratio, tn, varargout ]  =  operate  (  E_n,  modeshp,  hinge_option, 
axis_option,  form_option,  R_V,  e,  R,  weight,  I_xx) 

"o 

'Q— ——————————————————————————————————————————————————————————————————————————————— 


%  This  function  is  the  main  operating  function  of  the  gui  program  of  the 
'Mykelstad  Blade  Dynamics  Analysis' 


111 


"o 

"o 

%  Assigning  the  default  values  of  the  program: 

%  (All  the  default  values  are  given  for  the  H-3  Helicopter  values  with  no  hinge) 

"o 

%* 

%global  cpm 
%global  ratio 
%global  tn 

"o 

if  isempty(R_V) 

R_V  =  372; 

end 

"o 

Q--k  -k 
o 

if  isempty(e) 
e  =  0  ; 

end 

"o 

Q--k  -k  -k 
o 

if  isempty(R) 

R  =  372; 

end 

"o 

^•k  -k  -k  -k 

if  isempty (weight ) 
weight  =  316.6; 

end 

"o 

^■k  -k  -k  -k  -k 

if  isempty ( I_xx) 

I  XX  =  2.5; 

end 

"o 

"o 

"o 
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switch  form_option; 


switch ( 1 ) 


case  1 


"o 


%  'uniform' 


switch  axis_option; 


%  switch(2) 


case  1 


%  ' flatwise ' 


switch  hinge_option  %  switch (3) 

case  1  %  'hinged' 

[ cpm, ratio, tn ]  =  hinged_uniform_flatwise (E_n,  modeshp,  R_V,  e,  R, 

weight, I  xx) ; 

case  2  %  'hingeless' 

[ cpm, ratio, tn ]  =  hingeless_uniform_flatwise (E_n,  modeshp,  R_V,  e,  R, 

weight, I  xx) ; 

end  %  end  switch (3) 


case  2;  %  'edgewise' 

switch  hinge_option  %  switch (3) 

case  1  %  'hinged' 

[ cpm, ratio, tn ]  =  hinged_unif orm_edgewise  (E_n,  modeshp,  R_V,  e,  R, 

weight,  I  xx) ; 


case  2  %  'hingeless' 

[ cpm, ratio, tn ]  =  hingeless_uniform_edgewise (E_n,  modeshp,  R_V,  e,  R, 

weight,  I  xx) ; 

end  %  end  switch (3) 


case  3;  %  'coupled' 

switch  hinge_option  %  switch (3) 

case  1  %  'hinged' 

[ cpm, ratio, tn ]  =  hinged_uniform_coupled (E_n,  modeshp,  R_V,  e,  R, 

weight,  I  xx) ; 

case  2  %  'hingeless' 
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[cpm, ratio, tn] 


weight,  I  xx) ; 


hingeless_uniform_coupled (E_n,  modeshp,  R_V,  e,  R, 


end 

%  end  switch (3) 

end 

"o 

%  end  switch (2) 

case  2 

%  '  nonuniform' 

switch  axis  option; 

%  switch(2) 

case  1 

%  ' flatwise ' 

switch  hinge  option 

%  switch(3) 

case  1 

%  'hinged' 

[cpm, ratio, tn]  = 

hinged  nonuniform  flatwise (E  n,  modeshp,  R  V,  e. 

weight,  I  xx) ; 

case  2 

%  'hingeless' 

[cpm, ratio, tn]  = 

hingeless  nonuniform  flatwise (E  n,  modeshp,  R  V, 

R,  weight,  I  xx) ; 

end 

"o 

%  end  switch (3) 

case  2; 

%  'edgewise' 

switch  hinge  option 

%  switch(3) 

case  1 

%  'hinged' 

[cpm, ratio, tn]  = 

hinged  nonuniform  edgewise (E  n,  modeshp,  R  V,  e. 

weight,  I  xx) ; 

case  2 

%  'hingeless' 

[cpm, ratio, tn]  = 

hingeless  nonuniform  edgewise (E  n,  modeshp,  R  V, 

R,  weight,  I  xx) ; 

end 

%  end  switch (3) 

o 

case  3; 

switch  hinge_option 


%  'coupled' 


case  1 
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switch (3) 
' hinged ' 


[cpm, ratio, tn] 

R,  weight,  I_xx) ; 

case  2 

[cpm, ratio, tn] 

e,  R,  weight,  I  xx) ; 

end 


hinged_nonuniform_coupled (E_n,  modeshp,  R_V,  e 

%  'hingeless' 

hingeless_nonuniform_coupled (E_n,  modeshp,  R_V 

%  end  switch (3) 


end 


%  end  switch (2) 


end 


%  end  switch (1) 


%  end  of  the  function 


"OPERATE" 


3,  Hinged  Uniform  Flatwise  Function 


function  [omega_n, omega_rate, cent_force, varargout] 
modeshp,  R_V,  e,  R,  weight, I_xx) 


hinged_unif orm_f latwise (E_n 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


This  function  if  for  the  uniform  hinged  blades 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


segment 

=  R/50; 

segment  W 

=  weight/50 

z 

=  1; 

r  n  ( 1 ) 

=  R; 

r  n (51) 

=  e; 

I_x (51) 

=  0.0001; 

Weight  n  ( 51 ) 

=  0.0001; 

I_x(l) 

=  I  XX  ; 

Weight  n  ( 1 ) 

=  segment  W 

for  seg  =  2 : 

50 

r_n(seg)  =  r_n(z)  -  segment; 

if  r_n ( seg)  <  e 
r_n(seg)  =  e; 
end 
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I_x(seg)  =  I_xx; 

Weigh t_n ( seg)  =  segment_W; 
z  =  z+1; 

end; 

"o 

n  =  length (r_n) ; 

"o 

m_n  =  Weight_n/ ( 32 . 17 4* 12 ) ; 

"o 

R_V1=  R_V  *  pi/ 30;  %  R_V1  is  in  radians 

T_n(l)  =0;  %  the  unit  is  radians 

"o 

for  i  =  1  :  n-1, 

T_n (i+1 ) =T_n (i)  +  m_n(i+l)  *  r_n(i+l)  *  R_V1^2; 

end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

cent_force  =  T_n(n); 

disp  (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

"o 

^■k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 

k  =  1; 
i  =  1; 

for  omegal  =  0  :inodeshp''2  : 2  .  l*modeshp^2*200,  %  omegal  is  in  RPM 

omega (k)  =  omegal *2 *pi/ 60 ;  %  omega (k)  is  in  radians 

F  =  eye (4 ) ; 

"o 

for  j  =  1 :  n-1 , 

l_sn  =  r_n(j)  -  r_n(j+l); 


El  =  E_n  *  I_x ( j ) ; 


G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0,  -m_n  ( j +1 )  *omega  (k) ''2 ;  omega  (k)  is  in  radians 

0,  -T_n(j) 

1,  0 

l_sn,  1  ]  ; 


A_n=[l, 


0, 


0,  0; 

0,  -T_n(j); 
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1  sn 


1 


0; 

1]  ; 


- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / (2 *EI ) , 

- (l_sn^3) / (3*EI) ,  - (l_sn^2) / (2*EI) ,  (T_n ( j ) *l_sn^3 ) / ( 3*EI ) , 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(2,3),F(2,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k;)  =  det  (B  c)  ; 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0 
%line" 


if  det_bc(k;)  <  0.0001  &  det_bc(k;) 
omega_natural (i)  =  omega (k); 
i  =  i+1; 
else 

if  k  >1, 
s  =  k- 1  ; 

if  det_bc(k)  *  det_bc(:,s)  <  0 
omega_natural (i)  =  (omega (k)  + 
i  =  i  +1; 
end; 

end; 

end; 

"o 

k  =  k+1; 
end; 


>  -0.0001  %  elseif  loop  (1) 


%  if  loop  (l.a) 

%  if  loop  (l.b) 
omega ( ; , s ) ) /2 ; 

%  end  of  if  (l.b) 

%  end  of  if  (l.a) 

%  end  of  elseif  (1) 

%  end  of  loop  for  omega_l  % 


for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 

end; 

'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O 

for  count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ;  %  omega_0  is  in  radians  ,  omega_n  is  in  RPM 

omega_new  =  100;  %  omega_new  is  in  RPM 
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omega_old  =  -100; 
flg_slope  =  1; 


%  omega_old  is  in  RPM 


%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2 ) ; 

if  R  ==1 

slope  =  1 ; 

elseif  R  ==  0; 

slope  =  -1; 

else 

display  (' This  is  an  incorrect  mode  shape  input!') 
end  %  end  of  'if  loop  R' 

"o 

%  initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

while  flag  ==  1, 

F  =  eye  (4 ) ; 
if  omega_0  <  0, 
omega_0  =  0 ; 

%  if  real  part  of  natural  frequency  is  negative  value  make  it  zero 
end  %  end  of  if  loop  omega 

"o 

for  j  =  1 :  n-1 , 


l_sn  =  r_n(j)  -  r_n(j+l); 

"o 

El  =  E_n  *  I_x ( j ) ; 


"O 

G_n=[l,  0,  0, 

is  in  radians 

0,  1,  0, 

0,  0,  1, 

0,  0,  l_sn, 

"o 

A  n=[l,  0, 


-m_n  ( j  +1 )  *omega_0''2 

-T_n(j) 

0 

1 


0, 


%  omega_0 


0 
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1  sn 


1 


0 


-T_n(j)  ; 
0 


- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / (2 *EI ) , 

-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn'' 3 )  /  ( 3*EI )  ,  1 

"o 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(2,3),  F(2,4)  ;  F(4,3),  F(4,4)  ] ; 
det  be  =  det (B  c) ; 


if  (abs (det_bc) <100  |  abs (omega_old-omega_new) <le-10)  ,  %  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  omega_0  is  in  radians,  omega_n  is  in  RPM 

"o 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  1-a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  1-a' 

"o 


%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0 ; 

det_bcnew  =  0; 

else  %  else  for  if  loop  1 


1-b-ii 


if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  - 

else 

omega_new  =  omega_0  + 

end; 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 
elseif  flag_l  ==  2, 

if  abs (det  bcold  +  det  be) 


%  if  loop  1-b 
%  if  loop  1-b-i 

(200*pi/30) *slope;  %  omega_new  is  in  radians 
%  else  for  if  loop  1-b-i 
( 200*pi/30 ) *slope ;  %  omega_new  is  in  radians 

%  end  of  'loop  if  1-b-i' 


%  elseif  for  if  loop  1-b 
>  abs  (det_bc)  &  det_bcnew  ==  0,  %  if  loop 


119 


radians 


radians 


if  det_bc  >0,  %  if  loop  1-b-ii-a 

omega_new  =  omega_0  -  (200*pi/30) *slope;  %  omega_new  is  in 

else  %  else  for  if  loop  1-b-ii-a 

omega_new  =  omega_0  +  (200*pi/30) *slope;  %  omega_new  is  in 


end;  %  end  of  'if  loop  1-b-ii-a 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 

else  %  else  for  if  loop  1-b-ii 

omega_0  =  (omega_new  +  omega_old) /2 ; 

%  omega_old, new  and  0  are  in  radians 

det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  1-b-ii' 

else  %  else  for  if  loop  1-b 

if  ( (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)), 

%  if  loop  1-b-iii 

omega_new  =  omega_0 ; 
det_bcnew  =  det_bc; 

elseif  (  (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)),  % 

elseif  for  if  loop  1-b-ii 

omega_old  =  omega_0; 

det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-ii' 

omega_0  =  (omega_new  +  oinega_old) /2  ; 
end;  %  end  of  'if  loop  1-b' 


end; 


%  end  of  'if  loop  1' 


end; 


%  end  of  'while  loop' 


theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 
end  %  end  of  loop  for  count 


•k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 


for  m=  1  :  count 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 
X_n ( : , 1 )  =  X_tip; 


%  for  loop  count 
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F  =  eye  (4 )  ; 

for  j  =  l:n-l,  %  for  loop  j 

"o 

l_sn  =  r_n(j)  -  r_n(j+l); 

"O 

El  =  E_n  *  I_x ( j ) ; 


G_n=[l,  0,  0,  -in_n  (j+1)  *  (omega_n  (m)  *pi/30) ''2; 

0,  1,  0,  -T_n(j); 

0,  0,  1,  0; 

0,  0,  l_sn,  1 ] ; 


A_n=[l,  0,  0,  0; 

l_sn,  1,  0,  -T_n(j); 

- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / (2 *EI ) ,  0; 


-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn'' 3 )  /  ( 3*EI )  ,  1]; 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 

end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 
deflection (m, ; ) =X_n (4, ; ) ; 
plot  (  r_n,  2*deflection (m, ; ) , 
grid  on; 

title  (  '  Flatwise  Mode  Shapes  at  Operational  Rotational  Velocity  for  Uniform 

Blade '  ) ; 

xlabel  (  '  Blade  Station  (inc) '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 
hold  off 

disp('The  Natural  Frequencies  are (cpm) :  ') 

disp (omega_n) 

"o 

disp ('The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is:  ') 
disp (omega_n/R_V) 
omega_rate  =  omega_n/R_V; 

"o 
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%  end  of  program  "HINGED_UNIFORM_FLATWISE" 


4,  Hinged  Uniform  Edgewise  Function 


function  [omega_n, omega_rate, cent_force, varargout] 
modeshp,  R_V,  e,  R,  weight, I_xx) 


hinged_unif orm_edgewise (E_n, 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


This  function  if  for  the  uniform  hinged  blades 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


segment  = 

segment_W  = 

z  = 

r_n  ( 1 )  = 

r_n (51)  = 

I_x(51) 

Weigh t_n  ( 51 )  = 

I_x(l) 

Weigh t_n(l)  = 

"o 

for  seg  =  2:50 

r_n(seg)  =  r_n(z)  -  segment; 

if  r_n ( seg)  <  e 

r_n(seg)  =  e; 
end 

I  x(seg)  =  l_xx; 

Weigh t_n ( seg)  =  segment_W; 

z  =  z+1; 

end; 


R/50; 

weight/ 50; 

1; 

R; 

e; 

0.0001; 

0.0001; 

I  xx; 

segment_W; 


n  =  length(r_n); 

"o 

m_n  =  Weight_n/ ( 32 . 17 4* 12 ) ; 

"o 

R_V1=  R_V  *  pi/ 30;  %  R_V1  is  in  radians 

T_n(l)  =0;  %  the  unit  is  radians 

"o 

for  i  =  1  :  n-1, 

T  n (i+1 ) =T_n (i)  +  m_n(i+l)  *  r_n(i+l)  *  R  V1^2; 
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end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

cent_force  =  T_n(n); 

disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

"o 

^■k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 

k  =  1; 

1  =  1; 

for  omegal  =  0  :modeshp^2 : 2 . l*modeshp^2*200,  %  omegal  is  in  RPM 

omega (k)  =  omegal *2 *pi/ 60 ;  %  omega (k)  is  in  radians 

F  =  eye (4 ) ; 

"o 

for  j  =  1 : n-1 , 

l_sn  =  r_n(j)  -  r_n(j+l); 

El  =  E_n  *  I_x ( j ) ; 


G_n=[l, 

0, 

0, 

-m  n  ( j +1 )  *  ( omega  ( k) ''2  +  R  VI' 

'2)  ; 

omega (k)  is  in  radians 

0, 

1, 

0, 

-T 

_n(j) 

0, 

0, 

1, 

0 

; 

0, 

0, 

1  sn. 

1 

] ; 

A_n=[l, 

0, 

O 

O 

1  sn. 

1, 

0,  -T_n(j); 

-  (1  sn 

"2) / (2*EI) , 

-1 

sn/EI, 

1+  (T_n  (j  )  *l_sn''2)  /  (2*EI)  , 

0; 

-  (1  sn 

"3) / (3*EI) , 

-  (1  sn' 

'2)  /  (2*EI)  ,  (T_n(j)  *l_sn''3)  /  (3*EI)  , 

1] 

F  n  =  inv (G  n)*A  n; 

F  =  F  n  * 

F; 

end;  %  end  of 

loop  for  j 

1 

1 — 1 

A 

1 

1 

sn,  El, 

An,  G  n,  F  n) 

"O 


B_c  =  [  F(2,3),F(2,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k)  =  det (B  c)  ; 


if  det_bc(k)  <  0.0001  &  det_bc(k)  >  -0.0001  %  elseif  loop  (1) 
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omega_natural (i)  =  omega (k); 


i  =  i+1; 
else 

if  k  >1, 
s  =  k- 1  ; 

if  det_bc(k)  *  det_bc(:,s)  < 
omega_natural (i)  =  (omega (k) 
i  =  i  +1; 
end; 

end; 

end; 

"o 

k  =  k+1; 
end; 


"o 

if 

loop 

(1 

•  a) 

0  % 

if 

loop 

(1 

•  b) 

+  omega  ( : , 

.  s)  ) 

/2; 

"o 

end 

of 

if 

(1. 

"5 

end 

of 

if 

(1. 

%  end  of  elseif  (1) 


%  end  of  loop  for  omega_l 


for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 

end; 

'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O 

for  count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ;  %  omega_0  is  in  radians  ,  omega_n  is  in  RPM 

omega_new  =  100;  %  omega_new  is  in  RPM 

omega_old  =  -100;  %  omega_old  is  in  RPM 

flg_slope  =  1; 

"o 

%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2 ) ; 

if  R  ==1 

slope  =  1; 

elseif  R  ==  0; 

slope  =  -1; 

else 

display (' This  is  an  incorrect  mode  shape  input!') 
end  %  end  of  'if  loop  R' 

"o 

%  initial  values 
flag  =  1; 
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flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

while  flag  ==  1, 

F  =  eye (4 ) ; 
if  omega_0  <  0, 

omega_0  =0;  %  if  real  part  of  natural  frequency  is  negative  value 

make  it  zero 

end  %  end  of  if  loop  omega 

"o 

for  j  =  1 :  n-1 , 


"o 

l_sn  =  r_n(j)  -  r_n(j+l); 


"O 


El  =  E_n  *  I_x ( j ) ; 

"O 

G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0, 


0, 

1, 

1  sn. 


-m_n ( j +1 ) * (omega_0^2  +  R_V1^2) 
-T_n(j) 

0 

1  ]  ; 


A_n=[l, 

0, 

1  sn. 

1, 

- (l_sn"2) / (2*EI) , 

-1  sn/EI, 

- (l_sn"3) / (3*EI) , 

-(1  sn^2)/(2*EI) 

0,  0 

0,  -T_n(j); 

1+ (T_n (j ) *l_sn^2) / (2*EI)  ,  0 

(T_n (j ) *l_sn^3) / (3*EI)  ,  1 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(2,3),  F(2,4)  ;  F(4,3),  F(4,4)  ] ; 
det  be  =  det(B_c); 


if  (abs (det_bc) <100  |  abs (omega_old-omega_new) <le-10)  ,  %  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  %  omega_0  is  in  radians,  omega_n  is  in  RPM 

"o 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  1-a 
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disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 


end  %  end  of  'if  loop  1-a' 


%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

else  %  else  for  if  loop  1 


radians 


if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  - 

else 

omega_new  =  omega_0  + 

end; 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 
elseif  flag_l  ==  2, 

if  abs(det  bcold  +  det  be) 


%  if  loop  1-b 
%  if  loop  1-b-i 

(200*pi/30) *slope;  %  omega_new  is  in  radians 
%  else  for  if  loop  1-b-i 
( 200*pi/30 ) *slope ;  %  omega_new  is  in  radians 
%  end  of  'loop  if  1-b-i' 


%  elseif  for  if  loop  1-b 
>  abs(det_bc)  &  det_bcnew  ==  0, 

%  if  loop  1-b-ii 


if  det_bc  >0,  %  if  loop  1-b-ii-a 

omega_new  =  omega_0  -  (200*pi/30) *slope; %omega_new  is  in  radians 
else  %  else  for  if  loop  1-b-ii-a 

omega_new  =  omega_0  +  ( 200*pi/30 ) *slope ; %omega_new  is  in  radians 
end;  %  end  of  'if  loop  1-b-ii-a 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 

else  %  else  for  if  loop  1-b-ii 

omega_0  =  (omega_new  +  omega_old) /2 ;  %  omega_old,  new  and  0  are  in 


det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  1-b-ii' 

else  %  else  for  if  loop  1-b 
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if  ( (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)), 

%  if  loop  1-b-iii 

omega_new  =  omega_0 ; 
det_bcnew  =  det_bc; 

elseif  ( (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)), 

%  elseif  for  if  loop  1-b-ii 

omega_old  =  omega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-ii' 

omega_0  =  (omega_new  +  omega_old) /2 ; 
end;  %  end  of  'if  loop  1-b' 


end;  %  end  of  'if  loop  1' 


end; 


%  end  of  'while  loop' 


theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 
end  %  end  of  loop  for  count 


•k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-ki 


'^•k-k-k'k-k-k-k-k-k-ki 


'^-k-k-k'k-k-k-k-k-k-ki 


for  m=  1  :  count 

X_tip  =  [0  ;  0  ;  theta_n (m) 
X_n ( : , 1 )  =  X_tip; 

F  =  eye (4 ) ; 
for  j  =  1 :  n-1 , 


;  1  ]  ; 


%  for  loop  count 


%  for  loop  j 


l_sn  =  r_n(j)  -  r_n(j+l); 


El  =  E_n  *  I_x ( j ) ; 


G_n=[l,  0,  0, 

0,  1,  0, 

0,  0,  1, 

0,  0,  1  sn. 


-in_n  ( j +1 )  *  (  (omega_n  (m)  *pi/30) ''2  +  R_V1^2) 

-T_n(j) ; 

0; 

1]  ; 


A_n=[l,  0,  0,  0; 

l_sn,  1,  0,  -T_n(j); 

- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / (2 *EI ) , 

-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn''3 )  /  ( 3*EI )  , 


0; 

1]  , 
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F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 

end;  %end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 
deflection (m, : ) =X_n (4, : ) ; 
plot  (  r_n,  2*deflection (m, ; ) , 
grid  on; 

title  (  '  Chordwise  Mode  Shapes  at  Operational  Rotational  Velocity  for  Uniform 

Blade '  ) ; 

xlabel  (  '  Blade  Station  (inc)  '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 


disp('The  Natural  Frequencies  are (cpm) :  ') 

disp (omega_n) 

"o 

disp ('The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is:  ') 
disp (omega_n/R_V) 
omega_rate  =  omega_n/R_V; 

"o 

%  end  of  function  "HINGED  UNIFORM  EDGEWISE" 


5,  Hingeless  Uniform  Flatwise  Function 


function  [omega_n, omega_rate, cent_f orce, varargout ]  =  hingeless_uniform_flatwise (E_n, 

modeshp,  R_V,  e,  R,  weight, I_xx) 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


This  function  if  for  the  uniform  hingeless  blades 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


segment  = 

segment_W  = 

z  = 

r_n  ( 1 )  = 

r_n (51)  = 

I_x(51) 

Weight_n  ( 51 )  = 
I_x(l) 

Weigh t_n(l)  = 


R/50; 

weight/ 50; 

1; 

R; 

0; 

0.0001; 

0.0001; 

I  xx; 

segment_W; 
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e  =  0  ; 


for  seg  =  2:50 

r_n(seg)  =  r_n(z)  -  segment; 

if  r_n ( seg)  <  0 

r_n(seg)  =  e; 
end 

I_x(seg)  =  I_xx; 

Weigh t_n ( seg)  =  segment_W; 

z  =  z+1; 

end; 

"o 

n  =  length(r_n); 

"o 

m_n  =  Weight_n/ ( 32 . 17 4* 12 ) ; 

"o 

R_V1=  R_V  *  pi/ 30;  %  R_V1  is  in  radians 

T_n(l)  =0;  %  the  unit  is  radians 

"o 

for  i  =  1  :  n-1, 

T  n (i+1 ) =T_n (i)  +  m_n(i+l)  *  r  n(i+l)  *  R  V1^2; 


end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

"o 

cent_force  =  T_n(n); 

disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

"o 

^•k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  ■ 

k  =  1; 
i  =  1; 

for  omegal  =  0  :modeshp''2  : 2  .  l*modeshp^2*200,  %  omegal  is  in  RPM 

omega (k)  =  omegal *2 *pi/ 60 ;  %  omega (k)  is  in  radians 

F  =  eye (4 ) ; 

"o 

for  j  =  1 : n-1 , 

l_sn  =  r_n(j)  -  r_n(j+l); 


El  =  E_n  *  I_x ( j ) ; 
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G_n=[l, 

0, 

0, 

-m 

n ( j+1) *omega (k) ^ 

2;  %  omega (k)  is  in  radians 

0, 

1, 

0, 

-T 

_n(j) 

0, 

0, 

1, 

0 

; 

0, 

0, 

1  sn. 

1 

] 

A_n=[l, 

0, 

0, 

0; 

1  sn. 

1, 

0, 

-T_n (j ) ; 

-  (1  sn' 

'2) / (2*EI) , 

-1_ 

sn/EI, 

1+ (T  n ( j ) *1  sn 

"2)/(2*EI),  0; 

- (l_sn^3) / (3*EI) ,  - (l_sn^2) / (2*EI) ,  (T_n ( j ) *l_sn^3 ) / ( 3*EI ) ,  1]; 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),F(3,4)  ;  F ( 4 , 3 ) , F ( 4 ,  4 )  ] ; 
det  bc(k;)  =  det  (B  c)  ; 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0 
%line" 


if  det_bc(k)  <  0.0001  &  det_bc(k)  >  -0.0001  %  elseif  loop  (1) 
oinega_natural  (i)  =  omega  (k); 
i  =  i+1; 
else 

if  k  >1,  %  if  loop  (l.a) 

s  =  k- 1  ; 

if  det_bc(k)  *  det_bc(:,s)  <0  %  if  loop  (l.b) 

omega_natural (i)  =  (omega (k)  +  omega (;, s )) /2  , • 
i=i+l; 

end;  %  end  of  if  (l.b) 

end;  %  end  of  if  (l.a) 

end;  %  end  of  elseif  (1) 


k  =  k+1; 
end; 


%  end  of  loop  for  omega_l  % 
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for  m  =  l:inodeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 

end; 


oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


for  count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) 
omega_new  =  100; 
omega_old  =  -100; 
flg_slope  =  1; 


%  omega_0  is  in  radians  ,  omega_n  is  in  RPM 
%  omega_new  is  in  RPM 
%  omega_old  is  in  RPM 


%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2 ) ; 

if  R  ==1 

slope  =  1; 

elseif  R  ==  0; 

slope  =  -1; 

else 

display (' This  is  an  incorrect  mode  shape  input!') 
end  %  end  of  'if  loop  R' 

"o 

%  initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

while  flag  ==  1, 

F  =  eye  (4 ) ; 
if  omega_0  <  0, 
omega_0  =  0 ; 

%  if  real  part  of  natural  frequency  is  negative  value  make  it  zero 
end  %  end  of  if  loop  omega 

"o 

for  j  =  1 :  n-1 , 

"o 

l_sn  =  r_n(j)  -  r_n(j+l); 

"O 

El  =  E_n  *  I_x ( j ) ; 
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G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0,  -m_n ( j+1) *omega_0^2  ; 

%  omega_0  is  in  radians 

0,  -T_n(j) 

1,  0 

l_sn,  1  ]  ; 


A_n=[l, 

l_sn, 

- (l_sn"2) / (2*EI) , 
-  (l_sn''3)  /  (3*EI)  , 


1, 


0, 


0, 


0, 


-l_sn/EI,  1+ (T_n ( j ) *l_sn^2) / (2*EI) , 

-  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn''3)  /  (3*EI)  , 


0 

-T_n  (j )  ; 
0 
1 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),  F(3,4)  ;  F(4,3),  F(4,4)  ] ; 
det  be  =  det (B  c) ; 


if  (abs (det_bc) <100  |  abs (omega_old-omega_new) <le-10)  ,  %  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  %  omega_0  is  in  radians,  omega_n  is  in  RPM 

"o 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  1-a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  1-a' 

"o 


%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0 ; 

else  %  else  for  if  loop  1 

"o 

if  flag_l  ==  1,  %  if  loop  1-b 

if  det_bc  >0,  %  if  loop  1-b-i 

omega_new  =  omega_0  -  (200*pi/30) *slope;  %  omega_new  is  in  radians 
else  %  else  for  if  loop  1-b-i 

omega_new  =  omega_0  +  (200*pi/30) *slope;  %  omega_new  is  in  radians 
end;  %  end  of  'loop  if  1-b-i' 
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end 


%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 

elseif  flag_l  ==  2,  %  elseif  for  if  loop  1-b 

if  abs (det_bcold  +  det_bc)  >  abs(det_bc)  &  det_bcnew  ==  0, 

%  if  loop  1-b-ii 

if  det_bc  >0,  %  if  loop  1-b-ii-a 

omega_new  =  omega_0  -  (200*pi/30) *slope; 

%  omega  new  is  in  radians 

else  %  else  for  if  loop  1-b-ii-a 

omega_new  =  omega_0  +  (200*pi/30) *slope; 

%  omega_new  is  in  radians 

end;  %  end  of  'if  loop  1-b-ii-a 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 

else  %  else  for  if  loop  1-b-ii 

omega_0  =  (omega_new  +  omega_old) /2 ; 

%  omega_old, new  and  0  are  in  radians 

det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  1-b-ii' 

else  %  else  for  if  loop  1-b 

if  ( (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)), 

%  if  loop  1-b-iii 

omega_new  =  omega_0 ; 
det_bcnew  =  det_bc; 

elseif  ( (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)) 

%  elseif  for  if  loop  1-b-ii 

omega_old  =  omega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-i 

omega_0  =  (omega_new  +  omega_old) /2 ; 
end;  %  end  of  'if  loop  1-b' 


%  end  of  'if  loop  1' 
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end; 


%  end  of  'while  loop' 


"o 

theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 
end  %  end  of  loop  for  count 

^  -k-k-k-k'k-k'k-k-k-k-k-k'k-k-k-k-k-k-k-k'k-k-k'k-k-k-k-k'k-k-k'k-k-k-k-k'k-k-k-k-k-k-k-k'k-k-k'k-k-k-k-k-k-k-k'k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k'k-k-k-k 


"o 

for  m=  1  :  count  %  for  loop  count 


X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 

X_n ( ; , 1 )  =  X_tip; 

F  =  eye (4 ) ; 

for  j  =  l:n-l,  %  for  loop  j 

"o 


l_sn  =  r_n(j)  -  r_n(j+l); 


"O 

El  =  E_n  *  I_x ( j ) ; 


"O 


G_n=[l,  0,  0, 

0,  1,  0, 

0,  0,  1, 

0,  0,  l_sn. 


-m_n ( j  +1 ) * (omega_n (m) *pi/30) ^2 ; 
-T_n(j) ; 

0; 

1]  ; 


A_n=[l, 

l_sn, 

- (l_sn"2) / (2*EI) , 
- (l_sn"3) / (3*EI) , 


0, 

1, 

-l_sn/EI, 
-(1  sn^2)/(2*EI 


0,  0; 

0,  -T_n(j); 

1+  (T_n  (j  )  *l_sn^2)  /  (2*EI)  , 
(T_n ( j ) *l_sn^3) / (3*EI) , 


0; 


1]  ; 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 

end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 

deflection (m, : ) =X_n (4, ; ) ; 

plot  (  r_n,  2*deflection (m, ; ) ,  '-'); 

grid  on 

title  (  '  Flatwise  Mode  Shapes  at  Operational  Rotational  Velocity  for  Uniform 

Blade '  ) ; 

xlabel  (  '  Blade  Station  (inc) '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 
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end  %  end  of  for  loop  count 
hold  off 

disp('The  Natural  Frequencies  are (cpm) :  ') 

disp (omega_n) 

"o 

disp ('The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is:  ') 
disp (omega_n/R_V) 

"o 

omega_rate  =  omega_n/R_V; 


%  end  of  program  "Hingeless  Uniform  Flatwise" 


6.  Hingeless  Uniform  Edgewise  Function 


function  [omega_n, omega_rate, cent_f orce,  varargout ] 

modeshp,  R_V,  e,  R,  weight, I_xx) 


hingeless_uniform_edgewise (E_n, 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


This  function  if  for  the  uniform  hingeless  blades 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


segment 

= 

R/50; 

segment  W 

= 

weight/ 50; 

z 

= 

1; 

r_n(l) 

= 

R; 

r  n (51) 

= 

0; 

I_x (51) 

= 

0.0001; 

Weight  n  ( 51 ) 

= 

0.0001; 

I_x(l) 

= 

I  XX  ; 

Weight  n  ( 1 ) 

segment  W; 

for  seg  =  2 : 

50 

r  n (seg) 

=  r_n ( z ) 

if  r_n ( seg)  <  0 
r_n(seg)  =  0; 
end 

I  x(seg)  =  I_xx; 

Weigh t_n ( seg)  =  segment_W; 

z  =  z+1; 


end; 
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n  =  length(r_n); 


"o 

m_n  =  Weight_n/ (32 . 17 4* 12 )  ; 

"o 

R_V1=  R_V  *  pi/30;  %  R_V1  is  in  radians 

T_n(l)  =0;  %  the  unit  is  radians 

"o 

for  i  =  1  :  n-1, 

T_n ( i+1 ) =T_n ( i )  +  m_n(i+l)  *  r_n(i+l)  *  R_V1^2; 
end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

"o 

cent_force  =  T_n(n); 

disp  (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

"o 

^■k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 

k  =  1; 
i  =  1; 

for  omegal  =  0  :inodeshp''2  : 2  .  l*modeshp''2*200,  %  omegal  is  in  RPM 

omega (k)  =  omegal *2 *pi/ 60 ;  %  omega (k)  is  in  radians 

F  =  eye (4 ) ; 

"o 

for  j  =  1 :  n-1 , 

l_sn  =  r_n(j)  -  r_n(j+l); 


El  =  E_n  *  I_x ( j ) ; 


G_n=[l,  0,  0, 

omega (k)  is  in  radians 

0,  1,  0, 

0,  0,  1, 

0,  0,  l_sn, 

A_n=[l,  0, 

l_sn,  1, 


-m_n  ( j +1 )  *  (omega  ( k)  ^2  +  R_V1''2) 

-T_n(j) 

0 

1  ]  ; 

0,  0; 

0,  -T_n(j); 
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0; 

1]  ; 


- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / (2 *EI ) , 

- (l_sn^3) / (3*EI) ,  - (l_sn^2) / (2*EI) ,  (T_n ( j ) *l_sn^3 ) / ( 3*EI ) , 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),F(3,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k;)  =  det  (B  c)  ; 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0 
%line" 


if  det_bc(k;)  <  0.0001  &  det_bc(k;) 
omega_natural (i)  =  omega (k); 
i  =  i+1; 
else 

if  k  >1, 
s  =  k- 1  ; 

if  det_bc(k)  *  det_bc(:,s)  < 
omega_natural (i)  =  (omega (k) 
i  =  i  +1; 
end; 

end; 

end; 


>  -0.0001  %  elseif  loop  (1) 


%  if  loop  (l.a) 

0  %  if  loop  (l.b) 

+  omega ( ; , s ) ) /2 ; 

%  end  of  if  (l.b) 

%  end  of  if  (l.a) 

%  end  of  elseif  (1) 


k  =  k+1; 
end; 


%  end  of  loop  for  omega_l 


"o 

for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 

end; 

'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O 

for  count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ;  %  omega_0  is  in  radians  , 
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omega_n  is  in  RPM 


%  omega_new  is  in  RPM 
%  omega_old  is  in  RPM 


omega_new  =  100; 
omega_old  =  -100; 
flg_slope  =  1; 


%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2 ) ; 

if  R  ==1 

slope  =  1; 

elseif  R  ==  0; 

slope  =  -1; 

else 

display  (' This  is  an  incorrect  mode  shape  input!') 
end  %  end  of  'if  loop  R' 

"o 

%  initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

while  flag  ==  1, 

F  =  eye  (4 ) ; 
if  omega_0  <  0, 
omega_0  =  0 ; 

%  if  real  part  of  natural  frequency  is  negative  value  make  it  zero 
end  %  end  of  if  loop  omega 

"o 

for  j  =  1 :  n-1 , 


l_sn  =  r 

"o 

El  =  E_n 

"O 

G_n=[l, 

0, 

0, 

0, 

"o 

A_n=[l, 


n ( j )  -  r_ 

*  I_x(j)  ; 

0, 

1, 

0, 

0, 


(j+1)  ; 


0, 

0, 

1, 

l_sn, 

0, 


-m_n  ( j +1 )  *  (omega_0^2  +  R_V1''2) 
-T_n(j) 

0 

1  ]  ; 

0, 
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0 


1  sn 


1 


0 


-T_n(j) 


- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / (2 *EI ) ,  0 

-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn'' 3 )  /  ( 3*EI )  ,  1 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

B_c  =  [  F(3,3),  F(3,4)  ;  F(4,3),  F(4,4)  ]  ; 
det  be  =  det (B  c) ; 


if  (abs (det_bc) <100  |  abs (omega_old-omega_new) <le-10)  ,  %  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  omega_0  is  in  radians,  omega_n  is  in  RPM 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  1-a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  1-a' 

"o 


%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0 ; 

else  %  else  for  if  loop  1 


if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  - 

else 

omega_new  =  omega_0  + 

end; 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 
elseif  flag_l  ==  2, 

if  abs (det  bcold  +  det  be) 


%  if  loop  1-b 

%  if  loop  1-b-i 

(200*pi/30) *slope;  %  omega_new  is  in  radians 
%  else  for  if  loop  1-b-i 
(200*pi/30) *slope;  %  omega_new  is  in  radians 
%  end  of  'loop  if  1-b-i' 


%  elseif  for  if  loop  1-b 
>  abs(det_bc)  &  det_bcnew  ==  0, 

%  if  loop  1-b-ii 


if  det_bc  >  0, 


%  if  loop  1-b-ii-a 
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omega_new  =  omega_0  -  (200*pi/30) *slope; 

%  omega  new  is  in  radians 

else  %  else  for  if  loop  1-b-ii-a 

omega_new  =  omega_0  +  (200*pi/30) *slope;  %  omega_new  is  in 

radians 

end;  %  end  of  'if  loop  1-b-ii-a 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 

else  %  else  for  if  loop  1-b-ii 

omega_0  =  (omega_new  +  omega_old) /2 ;  %  omega_old,  new  and  0  are  in 

radians 


det_bcnew  =  det_bc; 
flag_l  =  0; 

end 

else 

if  (  (det_bc>0  &  det_bcnew  >  0) 

loop  1-b-iii 


%  end  of  'if  loop  1-b-ii' 

%  else  for  if  loop  1-b 
(det  bc<0  &  det  bcnew  <  0)),  %  if 


omega_new  =  omega_0 ; 
det_bcnew  =  det_bc; 

elseif  (  (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)),  % 

elseif  for  if  loop  1-b-ii 


omega_old  =  omega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-ii' 

omega_0  =  (omega_new  +  omega_old) /2 ; 
end;  %  end  of  'if  loop  1-b' 


end;  %  end  of  'if  loop  1' 


end;  %  end  of  'while  loop' 

"o 

theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 
end  %  end  of  loop  for  count 

^  i^i(-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 

"o 

for  m=  1  :  count  %  for  loop  count 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 

X_n ( ; , 1 )  =  X_tip; 

F  =  eye (4 ) ; 
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for  j 


1  :n-l 


%  for  loop  j 


l_sn  =  r_n(j)  -  r_n(j+l); 

"o 

El  =  E_n  *  I_x ( j ) ; 

"O 

G_n=[l,  0,  0,  -m_n ( j +1 ) * ( (omega_n (m) *pi/30 ) ^2  +  R_V1^2); 

0,  1,  0,  -T_n(j); 

0,  0,  1,  0; 

0,  0,  l_sn,  1 ]  ; 

A_n=[l,  0,  0,  0; 

l_sn,  1,  0,  -T_n(j); 

- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / (2 *EI ) , 

-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn''3 )  /  ( 3*EI )  , 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 
end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 
deflection (m, ; ) =X_n (4, ; ) ; 
plot  (  r_n,  2*deflection (m, ; ) , 
grid  on; 

title  (  '  Chordwise  Mode  Shapes  at  Operational  Rotational  Velocity  for  Uniform 

Blade '  ) ; 

xlabel  (  '  Blade  Station  (inc)  '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 

"o 

disp('The  Natural  Frequencies  are (cpm) :  ') 

disp (omega_n) 

"o 

disp ('The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is:  ') 
disp (omega_n/R_V) 
omega_rate  =  omega_n/R_V; 

"o 

%  end  of  function  "HINGELESS  UNIFORM  EDGEWISE" 


0; 

1]  ; 
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7, 


Hinged  Nonuniform  Flatwise  Function 


function  [omega_n, omega_rate, cent_f orce, varargout ]  =  hingeless_uniform_edgewise (E_n, 

modeshp,  R_V,  e,  R,  weight, I_xx) 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


This  function  if  for  the  uniform  hingeless  blades 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


segment 

segment_W 

z 

r_n ( 1 ) 
r_n (51) 
I_x(51) 

Weigh t_n ( 51 ) = 
I_x(l) 

Weight  n ( 1 )  = 


R/50; 

weight/ 50; 
1; 

R; 

0; 

0.0001; 

0.0001; 

I  XX  ; 

segment  W; 


for  seg  =  2:50 

r_n(seg)  =  r_n(z)  -  segment; 

if  r_n ( seg)  <  0 

r_n(seg)  =  0; 
end 

I  x(seg)  =  I_xx; 

Weigh t_n ( seg)  =  segment_W; 

z  =  z+1; 


end; 


n  =  length(r_n); 

"o 

m_n  =  Weight_n/ (32 . 17 4* 12 )  ; 

radians 
is  radians 

for  1=1:  n-1, 

T_n  (i  +  1 )  =T_n  (i)  +  m  n(i  +  l)  *  r_n(i  +  l)  *  R  Vl''2; 


R_V1=  R_V  *  pi/30; 
T  n  ( 1 )  =  0  ; 


%  R_V1  is  in 
%  the  unit 


end;  %  end  of  loop  for  i-->  {  T_n(i)  } 
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cent_force  =  T_n(n); 

disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

"o 

^■k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 

k  =  1; 
i  =  1; 

for  omegal  =  0  :modeshp^2 : 2 . l*modeshp^2*200,  %  omegal  is  in  RPM 

omega (k)  =  omegal *2 *pi/ 60 ;  %  omega (k)  is  in  radians 

F  =  eye (4 ) ; 

"o 

for  j  =  1 : n-1 , 

l_sn  =  r_n(j)  -  r_n(j+l); 

El  =  E_n  *  I_x ( j ) ; 


G_n=[l,  0,  0, 

omega (k)  is  in  radians 

0,  1,  0, 

0,  0,  1, 

0,  0,  l_sn. 


-m_n ( j +1 ) * (omega ( k) ^2  +  R_V1^2); 

-T_n(j) 

0 

1  ]  ; 


A_n=[l, 

0, 

0, 

0; 

1  sn. 

1, 

0, 

-T_n  (j ) 

-  (1  sn' 

'2)7  (2*EI) , 

-1  sn/EI, 

1+ (T  n  ( j ) *1 

_sn^2) / (2*EI) , 

-  (1  sn' 

'3) / (3*EI) , 

- (l_sn^2) / (2*EI) 

,  (T_n(j)*l_ 

sn^3) / (3*EI) , 

0; 


1]  ; 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),F(3,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k)  =  det(B_c); 
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%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0 
%line" 


if  det_bc(k)  <  0.0001  &  det_bc(k) 
omega_natural (i)  =  omega (k); 
i  =  i+1; 
else 

if  k  >1, 
s  =  k- 1  ; 

if  det_bc(k)  *  det_bc(:,s)  < 
omega_natural (i)  =  (omega (k) 
i  =  i  +1; 
end; 

end; 

end; 


>  -0.0001  %  elseif  loop  (1) 


%  if  loop  (l.a) 

0  %  if  loop  (l.b) 

+  omega ( : , s ) ) /2 ; 

%  end  of  if  (l.b) 

%  end  of  if  (l.a) 

%  end  of  elseif  (1) 


k  =  k+1; 

end;  %  end  of  loop  for  omega_l 

"o 


"o 

for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 

end; 


'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O 


for  count 

=  1 

:  modeshp 

omega 

_0  = 

real (omega  n  (count) *pi/30) ; 

"o 

omega 

0  is  in 

radians  ,  omega  n  is  in  RPM 

omega 

new 

=  100; 

"o 

omega 

new  is 

in  RPM 

omega 

old 

=  -100; 

"o 

omega 

old  is 

in  RPM 

flg_slope  =  1; 

"o 

%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2  )  ; 

if  R  ==1 

slope  =  1; 

elseif  R  ==  0; 

slope  =  -1; 

else 
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display (' This  is  an  incorrect  mode  shape  input!') 
end  %  end  of  'if  loop  R' 


%  initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det  bcnew  =  0; 


while  flag  ==  1, 


F  =  eye (4 ) ; 
if  omega_0  <  0, 
omega_0  =  0 ; 

%  if  real  part  of  natural  frequency  is  negative  value  make  it  zero 
end  %  end  of  if  loop  omega 

"o 

for  j  =  1 : n-1 , 


l_sn  =  r_n(j)  -  r_n(j+l); 

"o 

El  =  E_n  *  I_x ( j ) ; 


"O 

G_n=[l,  0,  0, 

0,  1,  0, 

0,  0,  1, 

0,  0,  l_sn 

"o 

A_n=[l,  0, 

1  sn,  1, 


-m_n  ( j +1 )  *  (omega_0''2  +  R_V1''2) 
-T_n(j) 

0 

1  ]  ; 

0, 

0, 


-  (l_sn^2)  /  (2*EI)  ,  -l_sn/EI,  1+ (T_n  ( j  )  *l_sn''2  )  /  (2  *EI ) 

-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn''2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn^ 3 )  /  ( 3*EI )  , 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),  F(3,4)  ;  F(4,3),  F(4,4)  ] ; 
det  be  =  det(B_c); 


0 

-T_n(j) 

0 

1  ] 
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%  if  loop  1 


if  (abs (det_bc) <100  |  abs (omega_old-omega_new) <le-10) , 

omega_n (count)  =  omega_0*30/pi;  omega_0  is  in  radians,  omega_n  is  in  RPM  % 

"o 

if  abs ( omega_old-omega_new) <le-10 ,  %  if  loop  1-a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  1-a' 

"o 


%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

else  %  else  for  if  loop  1 


radians 


if  flag_l  ==  1,  %  if  loop  1-b 

if  det_bc  >0,  %  if  loop  1-b-i 

omega_new  =  omega_0  -  (200*pi/30) *slope;  %  omega_new  is  in  radians 
else  %  else  for  if  loop  1-b-i 

omega_new  =  omega_0  +  (200*pi/30) *slope;  %  omega_new  is  in  radians 
end;  %  end  of  'loop  if  1-b-i' 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 

elseif  flag_l  ==  2,  %  elseif  for  if  loop  1-b 

if  abs (det_bcold  +  det_bc)  >  abs(det_bc)  &  det_bcnew  ==  0, 

%  if  loop  1-b-ii 

if  det_bc  >0,  %  if  loop  1-b-ii-a 

omega_new  =  omega_0  -  (200*pi/30) *slope; 

%  omega  new  is  in  radians 

else  %  else  for  if  loop  1-b-ii-a 

omega  new  =  omega  0  +  (200*pi/30) *slope;  %  omega  new  is  in 


end; 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
else 


%  end  of  'if  loop  1-b-ii-a 


%  else  for  if  loop  1-b-ii 
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radians 


omega_0 


(oinega_new  +  omega_old) /2  ; 


omega_old,  new  and  0  are  in 


det_bcnew  =  det_bc; 
flag_l  =  0; 

end 

else 

if  (  (det_bc>0  &  det_bcnew  >  0) 

loop  1-b-iii 


%  end  of  'if  loop  1-b-ii' 

%  else  for  if  loop  1-b 
(det  bc<0  &  det  bcnew  <  0)), 


omega_new  =  omega_0 ; 
det_bcnew  =  det_bc; 

elseif  (  (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0 

elseif  for  if  loop  1-b-ii 


omega_old  =  omega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-ii' 

omega_0  =  (omega_new  +  omega_old) /2 ; 
end;  %  end  of  'if  loop  1-b' 


end;  %  end  of  'if  loop  1' 


end; 


%  end  of  'while  loop' 


"o 

theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 
end  %  end  of  loop  for  count 

9-  -k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 
o 


'o 

for  m=  1  :  count  %  for  loop  count 


X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 

X_n ( : , 1 )  =  X_tip; 

F  =  eye (4 ) ; 

for  j  =  l:n-l,  %  for  loop  j 

"o 


l_sn  =  r_n(j)  -  r_n(j+l); 


El  =  E_n  *  I_x ( j ) ; 

"O 

G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0,  -in_n  ( j +1 )  *  (  ( omega_n  (m)  *pi/30 ) ''2  +  R_V1^2); 

0,  -T_n(j); 

1,  0; 

l_sn,  1 ]  ; 


%  if 


)  )  /  % 
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A  n=[l 


0 


0 


0; 

-T_n  (j )  ; 


l_sn,  1,  0, 

- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / (2 *EI ) ,  0; 

-  (l_sn''3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn^  3 )  /  ( 3*EI )  ,  1]; 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 

end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 
deflection (m, ; ) =X_n (4, ; ) ; 
plot  (  r_n,  2*deflection (m, ; ) , 
grid  on; 

title  (  '  Chordwise  Mode  Shapes  at  Operational  Rotational  Velocity  for  Uniform 

Blade '  ) ; 

xlabel  (  '  Blade  Station  (inc) '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 

"o 

disp('The  Natural  Frequencies  are  (cpm)  :  ') 

disp (omega_n) 

"o 

disp ('The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is:  ') 
disp (omega_n/R_V) 
omega_rate  =  omega_n/R_V; 

"o 

%  end  of  function  "HINGELESS_UNIFORM_EDGEWISE" 

8,  Hinged  Nonuniform  Edgewise  Function 

function  [omega_n,  omega_rate, cent_force, varargout]  =  hinged_nonuniform_edgewise  (E_n, 
modeshp,  R_V,  e,  R,  weight, I_xx) 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


This  function  is  for 
Hinged  NonUniform  Blades 


ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


R  n  =  R; 
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W  n 


=  weight; 


m_n  =  W_n/ (32.174*12); 


n  =  length (R_n); 


I_yy  =  I_xx; 


i f  R_n ( n )  <  e 
R_n ( n )  =  e ; 


end 

R  n (n)  = 

"o 

"  e; 

"6 

"o 

omega 

=  0; 

det  Be 

=  0; 

"o 

R  VI 

=  R  V  *  pi/30; 

%  radians  (R  VI) 

"o 


%  Calculation  of  "Centrifugal  Force"  at  the  root: 


T_n(l)  =  m_n(l)  *  R_n(l)  *  R_V1^2;  %  (T_n)  and  radians  (R_V1) 

"o 

%  T_n(l)  is  is  the  "Centrifugal  Force  at  the  TIP" 

"o 

for  i  =  1  :  n-1, 

T_n (i+1) =T_n (i)  +  m_n(i+l)  *  R_n(i+1)  *  R_V1^2; 
end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

"o 

cent_force  =  T_n(n); 

disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

%  Displays  "Centrifugal  Force  at  r  " 


k  =  1; 

i  =  1; 
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for  omega_l  =  0  :  modeshp^2*R_V/500  :  2 . 1 *modeshp^2 *R_V, 

%  RPM  (omega_l) 

omega (k)  =  omega_l*2*pi/60;  %  radians  (omega (k)) 

F  =  eye (4 ) ; 


for  j  =  1 : n-1 , 

%  determine  length  of  the  segments; 
l_sn  =  R_n(j)  -  R_n(j+1); 

"o 

%  detemine  the  stiffness 
El  =  E_n  *  I_yy ( j ) ; 

"o 


G_n  =  [  1,  0,  0, 

0,  1,  0, 

0,  0,  1, 

0,  0,  l_sn. 


-m_n ( j +1 ) * (omega (k) ^2  +  R_V1^2); 
-T_n(j) 

0 

1  ]  ; 


A  n 


[  1, 

l_sn, 

-  (l_sn''2)  /  (2*EI) 
- (1  sn^3) / (3*EI) 


0, 

1, 

-l_sn/EI , 

-(1  sn^2)/(2*EI) 


0,  0  ; 

0,  -T_n(j)  ; 

1+ (T_n ( j ) *l_sn^2) / (2*EI)  ,  0 

(T_n ( j ) *l_sn^3) / (3*EI)  ,  1  ]  ; 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loop  for  j  -->  {  A_n,  G_n,  F_n  ) 


B_c  =  [  F(2,3),F(2,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k)  =  det (B  c) ; 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0 
%line" 


if  det_bc(k)  <  0.0001  &  det_bc(k)  >  -0.0001  %  elseif  loop  (1) 
omega_natural (i)  =  omega (k); 
i  =  i+1; 

else 


if  k  >1, 


%  if  loop  (l.a) 
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s 


=  k-1; 

if  det_bc(k;)  *  det_bc(:,s)  <0  %  if  loop  (l.b) 

omega_natural (i)  =  (omega (k)  +  omega (;,s))/2; 
i=i+l; 


end; 

"o 

end 

of 

if 

(l.b) 

end; 

"o 

end 

of 

if 

(l.a) 

end; 

"o 

end 

of 

elseif  (1) 

"o 

k  - 

k+1; 

"5 

end 

of 

loop  for  omega 

%  Sorting  and  Displaying  the  "Natural  Frequencies 


%  Sort  and  convert  the  unit  of  natural  frequency  to  'cpm' 
for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 
end;  %  end  of  loop  for  (m) 

"o 


for 


count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ; 

"o 

omega_new  =  100; 
omega_old  =  -100; 
flg_slope  =  1; 


%  radians  (omega_0)  , RPM  (omega_n) 

%  omega_new  i  in  RPM 
%  omega_old  is  in  RPM 


%  Determination  of  odd  or  even  mode  shapes 

"o 

R  =  rem (count, 2  )  ; 
if  R  ==1 
slope  =  1; 
elseif  R  ==  0; 
slope  =  -1; 
else 


display (' This  is  an  incorrect  mode  shape  input!') 

151 


end  %  end  of  'if  loop  R' 

"o 

"o 

%  Initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

"o 

while  flag  ==  1, 

F  =  eye  (4 ) ; 
if  omega_0  <  0, 

omega_0  =  0;  %  if  natural  frequency  is  negative,  make  it 

zero 

end  %  end  of  if  loop  omega 

"o 

for  j  =  1 :  n-1 , 

"o 

l_sn  =  R_n(j)  -  R_n(j+1); 

"o 

El  =  E_n  *  I_yy ( j ) ; 

"O 

G_n=[l,  0,  0,  -m_n  ( j +1 )  *  ( omega_0''2  +  R_V1''2)  ; 

0,  1,  0,  -T_n(j) 

0,0,1,  0 

0,  0,  l_sn,  1  ]  ; 

"o 

A_n=[l,  0,  0,  0 

l_sn,  1,  0,  -T_n(j) 

-  (l_sn''2)  /  (2*EI)  ,  -l_sn/EI,  1+ (T_n  ( j  )  *l_sn''2  )  /  (2  *EI )  ,  0 

-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn'' 3 )  /  ( 3*EI )  ,  1  ]  ; 

"o 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

B_c  =  [  F(2,3),  F(2,4)  ;  F(4,3),  F(4,4)  ]  ; 
det  be  =  det (B  c) ; 
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if 


(abs (det_bc) <1000  |  abs (omega_old-omega_new) <le-10 ) , 

%  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  %  radians  (oinega_0) ,  RPM  (omega_n) 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  l.a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  l.a' 

"o 


%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

"5 

else 

"o 

if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  -  (200* 

else 

omega_new  =  omega_0  +  (200* 

end; 

"o 


%  else  for  if  loop  1 

%  if  loop  1  .b 
%  if  loop  1 .b  .  i 

'i/30) *slope;  %  radians (omega_new) 
else  for  if  loop  l.b.i 
'i/30)  *slope; 

%  end  of  'loop  if  l.b.i' 


%  Rearrange  the  values 

"o 

omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 

"o 

elseif  flag_l  ==  2,  %  elseif  for  if  loop  l.b 

if  abs (det_bcold  +  det_bc)  >  abs(det_bc)  &  det_bcnew  ==  0, 

%  if  loop  1 .b . ii 

if  det_bc  >0,  %  if  loop  l.b.ii.a 

omega_new  =  omega_0  -  (200*pi/30) *slope; 
else  %  else  for  if  loop  l.b.ii.a 

omega_new  =  omega_0  +  (200*pi/30) *slope; 
end;  %  end  of  'if  loop  l.b.ii.a 
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%  Rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det  bcold  =  det  be; 


else 

omega_0  =  (omega_new  + 
det_bcnew  =  det_bc; 
flag_l  =  0; 

end 

else 

if  (  (det_bc>0  &  det_bcnew 

l.b.iii 

omega_new  =  omega_0 ; 

det_bcnew  =  det_bc; 

elseif  (  (det_bc  <  0  &  det 
elseif  for  if  loop  l.b.ii 

omega_old  =  omega_0; 

det_bcold  =  det_bc; 

end; 

"o 

omega_0  =  (omega_new  +  omega 

"o 

end; 

"o 

end; 

"o 

end; 


%  else  for  if  loop  l.b.ii 
omega_old) /2 ; 

%  end  of  'if  loop  l.b.ii' 

%  else  for  if  loop  1-b 

>  0)  I  (det_bc<0  &  det_bcnew  <  0)),%  if  loop 


benew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)),% 

%  end  of  'if  loop  l.b.ii' 

/2; 

%  end  of  'if  loop  l.b' 

%  end  of  'if  loop  1' 

%  end  of  'while  loop' 


theta_n (count)  =  -B_c(l,2)  /  B_c(l,l); 

%  According  to  the  equation  we  can  also  use  as  :  theta_n (count) =  -B_c ( 2 , 2 ) /B_c (2 , 1 ) 

"o 

end  %  end  of  loop  for 

' count ' 


for  m=  1  :  count  %  for  loop  'm' 

X_tip  =  [0  ;  0  ;  theta_n (m)  ;  1  ]; 

X_n ( : , 1 )  =  X_tip; 

F  =  eye (4 ) ; 
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for  j 


1  :n-l 


%  for  loop  '  j  ' 


1  sn 


R_n(j)  -  R  n(j+l)  ; 


El 


E_n  *  I_yy(j) 


G_n  =[  1,  0,  0,  -m_n ( j+1) * ( (omega_n (m) *pi/30) ^2  +  R_V1 

0,  1,  0,  -T_n(j) 

0,  0,  1,  0 

0,  0,  1  sn,  1  ]  ; 


A_n  =[  1, 

l_sn, 

- (l_sn"2) /  (2*EI) , 
-(1  sn-'S)  /  (3*EI)  , 


0,  0,  0 

1,  0,  -T_n(j) 

-l_sn/EI,  1+ (T_n (j ) *l_sn^2) / (2*EI) ,  0 

-  (l_sn^2)  /  (2*EI)  ,  (T_n  (j  )  *l_sn''3)  /  (3*EI)  ,  1 


F_n  =  inv (G_n) *A_n; 
F  =  F  n  *  F; 


X_n(;,j+1)  =  F  *  X_tip; 


end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  Get  the  total  deflection  at  each  radial  station 

"o 

deflection (m, ; ) =X_n (4, : ) ; 
plot  (  R_n,  X_n(4,;), 


%plot  (  R_n,  2*X_n(4,:), 
grid  on; 

title  (  '  Chordwise  Mode  Shapes  at  Operational  Rotational  Velocity  '  )  ; 
xlabel  (  '  Blade  Station  (inc) '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 
hold  off 

disp('The  Natural  Frequencies  are (cpm) ;  ') 

disp (R_V) 
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disp('The  ratio  of  the  Natural  Frequency/Rotational  Speed  is:  ') 
disp (omega_n/R_V) 

omega_rate  =  omega_n/R_V; 

"o 

%  end  of  program  "HINGED_NONUNIFORM_EDGEWISE" 

9.  Hingeless  Nonuniform  Flatwise  Function 

function  [omega_n, omega_rate, cent_force, varargout]  =  hingeless_nonuniform_f latwise (E_n, 
modeshp,  R_V,  e,  R,  weight, I_xx) 

"o 

%  This  function  is  for  % 

%  Hingeless  NonUniform  Blades  % 

R_n  =  R; 

"o 

W_n  =  weight; 

"o 

m_n  =  W_n/ (32 . 174*12)  ; 

"o 

n  =  length (R_n) ; 

"o 

e  ^  0 ; 

i f  R_n ( n )  <  e 
R_n ( n )  =  e ; 

end 

R_n  ( n )  =  e ; 

"o 

%  n  represents  the  number  of  the  stations (segments) ; 


omega 

=  0; 

det  Be 

"o 

=  0; 

R  VI 

=  R  V  *  pi/30; 

%  radians  (R  VI) 

"O 

n 
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%  Calculation  of  "Centrifugal  Force"  at  the  root: 


T_n(l)  =  m_n(l)  *  R_n(l)  *  R  V1^2;  %  .  (T  n)  and  radians  (R_V1) 


%  T_n(l)  is  is  the  "Centrifugal  Force  at  the  TIP" 

"o 

for  i  =  1  :  n-1, 

T_n  (i  +  1)  =T_n  (i)  +  m_n(i  +  l)  *  R_n(i  +  1)  *  R_V1''2; 
end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

"o 

cent_force  =  T_n(n); 

disp (  '  Centrifugal  Force  :  '  ) 

disp (T_n (n) ) 

%  Displays  "Centrifugal  Force  at  the  root" 


k  =  1; 

i  =1; 

"o 

for  omega_l  =  0  :  modeshp''2 *R_V/2 00  :  2 . 1  *modeshp''2 *R_V, 

%  RPM  (omega_l) 

omega (k)  =  omega_l*2*pi/60;  %  radians  (omega (k)) 

F  =  eye (4 ) ; 


for  j  =  1 : n-1 , 

%  determine  the  length  of  the  segments 
l_sn  =  R_n(j)  -  R_n(j+1); 

"o 


%  determine  the  stiffness 
El  =  E_n  *  I_xx ( j ) ; 


G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0, 

0, 

1, 

1  sn. 


-m_n  ( j +1 )  *omega  (k)  "'2 ;  %  omega  (k)  is  in  radians 
-T_n(j) 

0 

1  ]  ; 


A_n=[l,  0, 

l_sn,  1, 

-(1  sn^2) / (2*EI) ,  -1  sn/EI, 


0,  0; 

0,  -T_n(j); 

1+  (T_n  (j  )  *l_sn^2)  /  (2*EI)  , 


(l_sn^3) / (3*EI) ,  -(1  sn^2) / (2*EI) ,  (T_n(j)*l  sn^3 ) / ( 3*EI ) , 


0; 

1]  , 
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F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),F(3,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k;)  =  det  (B  c)  ; 


%  determination  of  the  points  and  the  natural  frequencies  where  det.  crosses  the  "0 
%line" 


if  det_bc(k;)  <  0.0001  &  det_bc  (k)  >  -0.0001  %  elseif  loop  (1) 
omega_natural (i)  =  omega (k); 
i  =  i+1; 

else  %  elseif  loop  (1) 

if  k  >1,  %  if  loop  (l.a) 

s  =  k- 1  ; 

if  det_bc(k)  *  det_bc(:,s)  <0  %  if  loop  (l.b) 

omega_natural (i)  =  (omega (k)  +  omega (:, s )) /2  , • 
i=i+l; 

end;  %  end  of  if  (l.b) 

end;  %  end  of  if  (l.a) 

end;  %  end  of  elseif  (1) 


k  =  k+1; 
end; 


%  end  of  loop  for  omega_l 


%  Sorting  and  Displaying  the  "Natural  Frequencies" 


%  Sort  and  convert  the  unit  of  Natural  Frequency  to  'cpm' 
for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi ; 
end;  %  end  of  loop  for  (m) 
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for  count  =  1  :  modeshp 


omega_0  =  real (omega_n (count) *pi/30) ;  %  radians  (omega_0)  , RPM  (omega_n) 

"o 

omega_new  =100;  %  omega_new  i  in  RPM 

omega_old  =  -100;  %  omega_old  is  in  RPM 

flg_slope  =  1; 

"o 

"o 

%  Determination  of  odd  or  even  mode  shapes 

"o 

R  =  rem (count, 2 )  ; 
if  R  ==1 
slope  =  1; 
elseif  R  ==  0; 
slope  =  -1; 
else 

display (' This  is  an  incorrect  mode  shape  input!') 

end  %  end  of  'if  loop  R' 

"o 

"o 

%  Initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

"o 

while  flag  ==  1, 

F  =  eye  (4 ) ; 
if  omega_0  <  0, 

omega_0  =  0;  %  if  natural  frequency  is  negative,  make  it 

zero 

end  %  end  of  if  loop  omega 

"o 

"o 

for  j  =  1 :  n-1 , 

"o 

l_sn  =  R_n(j)  -  R_n(j+1); 


159 


El 


E_n  *  I_xx ( j ) ; 


G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 

"o 

A_n=[l, 

l_sn, 

- (l_sn"2) / (2*EI) , 
-  (l_sn''3)  /  (3*EI)  , 


0,  -m_n ( j+1) *omega_0^2 

0,  -T_n(j) 

1,  0 

l_sn,  1  ]  ; 


0, 

1, 

-l_sn/EI , 

- (l_sn-2) / (2*EI) , 


0, 

0, 

1+ (T_n ( j ) *l_sn^2) / (2*EI)  , 
(T_n  (j  )  *l_sn''3)  /  (3*EI)  , 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3),  F(3,4)  ;  F(4,3),  F(4,4)  ] ; 
det  be  =  det (B  c) ; 


0 

-T_n  (j ) 
0 

1 


if  (abs (det_bc) <10000  |  abs (omega_old-omega_new) <le-10) , 

%  if  loop  1 

omega_n (count)  =  omega_0*30/pi;  %  radians  (omega_0) ,  RPM  (omega_n) 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  l.a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  l.a' 

"o 

%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

"o 

else  %  else  for  if  loop  1 

"o 

if  flag_l  ==  1, 

if  det_bc  >  0, 

omega_new  =  omega_0  -  (200*pi/30) *slope; 
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%  if  loop  l.b 
%  if  loop  l.b.i 
%  radians (omega_new) 


else 


%  else  for  if  loop  l.b.i 


l.b.ii 


omega_new  =  omega_0  +  (200*pi/30) *slope; 
end;  %  end  of  'loop  if  l.b.i' 

"o 

%  Rearrange  the  values 

"o 

omega_old  =  omega_0; 
omega_0  =  oinega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 

"o 

elseif  flag_l  ==  2,  %  elseif  for  if  loop  l.b 

if  abs  (det_bcold  +  det_bc)  >  abs(det_bc)  &  det_bcnew  ==  0,  %  if  loop 

if  det_bc  >0,  %  if  loop  l.b.ii. a 

omega_new  =  omega_0  -  (200*pi/30) *slope; 
else  %  else  for  if  loop  l.b.ii. a 

omega_new  =  omega_0  +  (200*pi/30) *slope; 
end;  %  end  of  'if  loop  l.b.ii. a 

"o 

%  Rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det  bcold  =  det  be; 


else  %  else  for  if  loop  l.b.ii 

omega_0  =  (omega_new  +  omega_old) /2 ; 
det_bcnew  =  det_bc; 
flag_l  =  0; 

end  %  end  of  'if  loop  l.b.ii' 

else  %  else  for  if  loop  1-b 

if  ( (det_bc>0  &  det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)), 

%  if  loop  l.b. ill 

omega_new  =  omega_0 ; 
det_bcnew  =  det_bc; 

elseif  (  (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)),% 

elseif  for  if  loop  l.b.ii 

omega_old  =  omega_0; 

det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  l.b.ii' 
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omega_0  =  (omega_new  +  omega_old) /2 ; 


end; 


%  end  of  'if  loop  l.b' 


end; 


end; 


%  end  of  'if  loop  1' 

%  end  of  'while  loop' 


theta_n (count)  =  -B_c(2,2)  /  B_c(2,l); 

%  According  to  the  equation  we  can  also  use  as  :  theta_n (count) =  -B_c ( 2 , 2 ) /B_c (2 , 1 ) 


end 


%  end  of  loop  for  'count' 


for  m=  1  :  count 

X_tip  =  [0  ;  0  ;  theta_n (m) 
X_n ( : , 1 )  =  X_tip; 

F  =  eye (4 ) ; 
for  j  =  1 :  n-1 , 


;  1  ]  ; 


%  for  loop  'm' 


%  for  loop  ' j  ' 


l_sn  =  R_n ( j )  -  R_n(j+1); 


El 


E_n  *  I_xx ( j ) ; 


G_n  =[  1,  0,  0,  -m_n  ( j+1)  *  (omega_n  (m)  *pi/30)  "'2 

0,  1,  0,  -T_n(j) 

0,  0,  1,  0 

0,  0,  1  sn,  1 


A  n 


d  1, 

1  sn. 


0, 


1, 


-(1  sn''2)  /  (2*EI)  ,  -1  sn/EI, 


0,  0 

0,  -T_n(j) 

1+ (T_n  ( j  )  *l_sn''2)  /  (2*EI)  ,  0 


-  (l_sn''3)  /  (3*EI)  ,  -  (l_sn^2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn''3 )  /  ( 3*EI )  , 

"o 

F_n  =  inv (G_n) *A_n; 

F  =  F  n  *  F; 


X_n ( ; , j+1)  =  F  *  X  tip; 
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end; 


end  of  loop  for  j  -->  {  1  sn,  El,  A  n,  G_n,  F_n) 


%  Get  the  total  deflection  at  each  radial  station 


deflection (m, ; ) =X_n (4, ; ) ; 
plot  (  R_n  ,  2*X_n(4,:), 
grid  on; 

title  (  '  Flatwise  Mode  Shapes  Of  Hingeless (Rigid)  Rotor  Blade  for  Nonuniform 

Blade '  ) ; 

xlabel  (  '  Blade  Station  '  )  ; 

ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 

hold  off 

disp('The  Natural  Frequencies  are (cpm) :  ') 

disp (omega_n) 


disp('The  ratio  of  the  Natural  Frequency/Rotational  Speed  is:  ') 
disp (omega_n/R_V) 


omega_rate  =  omega_n/R_V; 


%  end  of  function  "HINGELESS  NONUNIFORM  FLATWISE" 


10,  Hingeless  Nonuniform  Edgewise  Function 

function  [omega_n, omega_rate, cent_f orce,  varargout ]  =  hingeless_uniform_edgewise (E_n, 
modeshp,  R_V,  e,  R,  weight, I_xx) 

%  This  function  if  for  the  uniform  hingeless  blades  % 

■^■^'O'^'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O 


segment 

segment_W 

z 

r_n ( 1 ) 
r_n (51) 
I_x(51) 
Weight_n (51 
I_x(l) 


R/50; 

weight/50; 

1; 

R; 

0; 

0.0001; 

0.0001; 

I  XX  ; 


)  = 
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Weight_n(l)  =  segment_W; 

for  seg  =  2:50 

r_n(seg)  =  r_n(z)  -  segment; 

if  r_n (seg)  <  0 

r_n(seg)  =  0; 
end 

I_x(seg)  =  I_xx; 

Weight_n (seg)  =  segment_W; 

z  =  z+1; 

end; 

"o 

n  =  length (r_n) ; 

"o 

m_n  =  Weight_n/ ( 32 . 1 74 *12 )  ; 

"5 

R_V1=  R_V  *  pi/30;  %  R_V1  is  in  radians 

T_n(l)  =  0;  %  the  unit  is  radians 

"o 

for  i  =  1  :  n-1, 

T  n(i  +  l)=T  n(i)  +  m_n(i  +  l)  *  r  n(i  +  l)  *  R  Vl''2; 


end;  %  end  of  loop  for  i-->  {  T_n(i)  } 

"o 

cent_force  =  T_n(n); 

disp  (  '  Centrifugal  Force  :  '  ) 

disp (T_n  (n) ) 

"o 

^■k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k  -k 

k  =  1; 
i  =  1; 

for  omegal  =  0  :modeshp^2 : 2 . l*modeshp^2*200,  %  omegal  is  in  RPM 

omega (k)  =  omegal*2*pi/60;  %  omega (k)  is  in  radians 

F  =  eye ( 4 ) ; 

"o 

for  j  =  l:n-l, 

l_sn  =  r_n ( j )  -  r_n(j+l); 
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El  =  E_n  *  I_x ( j )  ; 


[1, 

0, 

0, 

-m 

n ( j  +1 ) * (omega  (k) ^2 

+  R  V1^2) ; 

%  omega (k) 

is  in  radians 

0, 

1, 

0, 

-T 

.n(j) 

0, 

0, 

1, 

0 

; 

0, 

0, 

1  sn. 

1 

]  ; 

[1, 

0, 

0, 

0; 

1  sn. 

1, 

0, 

-T_n(j) ; 

- (l_sn^2) / (2*EI) ,  -l_sn/EI,  1+ (T_n ( j ) *l_sn^2 ) / ( 2*EI ) ,  0; 

-  (l_sn^3)  /  (3*EI)  ,  -  (l_sn''2)  /  (2*EI)  ,  (T_n  ( j  )  *l_sn''3 )  /  ( 3*EI )  ,  1]; 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 


B_c  =  [  F(3,3) ,F(3,4)  ;  F ( 4 , 3 ) , F ( 4 , 4 ) ] ; 
det  bc(k)  =  det(B  c)  ; 


%determination  of  the  points  and  the  natural  frequencies  where  det  crosses  the  "0 
line" 

"o 

if  det_bc(k;)  <  0.0001  &  det_bc(k)  >  -0.0001  %  elseif  loop  (1) 
omega_natural (i )  =  omega(k); 
i  =  i+1; 
else 

if  k  >1,  %  if  loop  (l.a) 

s  =  k-1; 

if  det_bc(k)  *  det_bc(:,s)  <0  %  if  loop  (l.b) 

oinega_natural  (i )  =  (omega  (k)  +  omega  (:,  s )) /2 ; 
i=i+l; 

end;  %  end  of  if  (l.b) 

end;  %  end  of  if  (l.a) 

end;  %  end  of  elseif  (1) 
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k 


k+1; 


end;  %  end  of  loop  for  omega_l 

"o 

"o 

for  m  =  l:modeshp, 

omega_n (m)  =  omega_natural (m) *30/pi; 

end; 

'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O'O 

for  count  =  1  :  modeshp 

omega_0  =  real (omega_n (count) *pi/30) ;  %  omega_0  is  in  radians  ,  omega_n  is  in  RPM 

omega_new  =100;  %  omega_new  is  in  RPM 

omega_old  =  -100;  %  omega_old  is  in  RPM 

flg_slope  =  1; 

"o 

%  determination  of  odd  or  even  mode  shapes 

R  =  rem (count, 2)  ; 

if  R  ==1 

slope  =  1; 

elseif  R  ==  0; 

slope  =  -1; 

else 

display (' This  is  an  incorrect  mode  shape  input!') 
end  %  end  of  'if  loop  R' 

"o 

%  initial  values 
flag  =  1; 
flag_l  =  1; 
det_bcold  =  0; 
det_bcnew  =  0; 

"o 

"o 

while  flag  ==  1, 

F  =  eye ( 4 ) ; 
if  omega_0  <  0, 
omega_0  =  0; 

%  if  real  part  of  natural  frequency  is  negative  value  make  it  zero 
end  %  end  of  if  loop  omega 
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for  j 


l:n-l 


l_sn  =  r_n ( j )  -  r_n(j+l); 


El  =  E_n  *  I_x ( j ) ; 

"O 

G_n=[l,  0, 

0,  1, 

0,  0, 

0,  0, 


0, 


0, 

1, 

1  sn. 


-m_n  ( j +1 )  *  ( omega_0^2  +  R_V1''2) 
-T_n(j) 

0 

1  ]  ; 


A_n= [ 1 , 

0, 

0, 

1  sn. 

1, 

0, 

- (l_sn-2) / (2*EI) , 

-1  sn/EI, 

1+  (T 

_n(j)*l_ 

sn^2) / (2*EI) 

- (l_sn-3) / (3*EI) , 

- (l_sn-2) / (2*EI) , 

(T_ 

_n(j)*l_ 

_sn^3) /  (3*EI) 

0 

-T_n (j )  ; 
0 


1 


F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

end;  %  end  of  loo  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"5 

B_c  =  [  F(3,3),  F(3,4)  ;  F(4,3),  F(4,4)  ] ; 
det  be  =  det(B_c); 


if  (abs (det_bc) <100  |  abs (omega_old-omega_new) <le-10)  ,  %  if  loop  1 

omega_n (count)  =  omega_0*30/pi ;  %  omega_0  is  in  radians,  omega_n  is  in  RPM 

"o 

"o 

if  abs (omega_old-omega_new) <le-10,  %  if  loop  1-a 

disp (' Warning ! !  This  value  of  omega  may  be  in  error.') 
end  %  end  of  'if  loop  1-a' 

"o 

%  change  the  initial  values 

flag  =  0; 

flag_l  =  1; 

det_bcold  =  0; 

det_bcnew  =  0; 

else  %  else  for  if  loop  1 

"o 

if  flag_l  ==  1,  %  if  loop  1-b 
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radians 


if  det_bc  >  0, 

omega_new  =  omega_0  - 

else 

omega_new  =  omega_0  + 

end; 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 
flag_l  =  2; 
elseif  flag_l  ==  2, 

if  abs (det  bcold  +  det  be) 


%  if  loop  1-b-i 

(2 00*pi/30 ) *  slope;  %  omega_new  is  in  radians 
%  else  for  if  loop  1-b-i 
(2 00 *pi/ 30 ) *  slope;  %  omega_new  is  in  radians 
%  end  of  'loop  if  1-b-i' 


%  elseif  for  if  loop  1-b 
>  abs (det_bc)  &  det_bcnew  ==  0, 
if  loop  1-b-ii 


if  det_bc  >0,  %  if  loop  1-b-ii-a 

omega_new  =  omega_0  -  (200*pi/30) *slope;  %  omega_new  is  in 


radians 


else  %  else  for  if  loop  1-b-ii-a 

omega_new  =  omega_0  +  (2 00*pi/ 30 ) *  slope; 

%  omega_new  is  in  radians 

end;  %  end  of  'if  loop  1-b-ii-a 

%  rearrange  the  values 
omega_old  =  omega_0; 
omega_0  =  omega_new; 
det_bcold  =  det_bc; 

else  %  else  for  if  loop  1-b-ii 

omega_0  =  (omega_new  +  omega_old) /2 ;  %  omega_old, new  and  0  are  in 


det_bcnew  =  det_bc; 
flag_l  =  0; 


end 


else 

if  (  (det  boO  & 


%  end  of  'if  loop  1-b-ii' 
%  else  for  if  loop  1-b 

det_bcnew  >  0)  |  (det_bc<0  &  det_bcnew  <  0)), 

%  if  loop  1-b-iii 


omega_new  =  omega_0; 
det_bcnew  =  det_bc; 

elseif  (  (det_bc  <  0  &  det_bcnew  >  0)  |  (det_bc  >  0  &  det_bcnew  <  0)),  % 

elseif  for  if  loop  1-b-ii 


omega_old  =  omega_0; 
det_bcold  =  det_bc; 

end;  %  end  of  'if  loop  1-b-ii' 

omega_0  =  (oinega_new  +  omega_old) /2  ; 
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end; 

%  end  of  'if  loop  1-b' 

"o 

end; 

%  end  of  'if  loop  1' 

6 

end; 

"o 

end  of  'while  loop' 

theta  n (count)  = 

-B_c(2,2) 

/  B_ 

c(2,l)  ; 

end 

% 

%  end  of  loop 

for  count 

•k  -k  -k  -k 

************************** 

kkkkkkkkkkkkkkkkkkkkkkkkkk 

"o 

for 

in=  1  :  count 

"O 

for  loop  count 

X  tip  =  [0  ; 

0  ;  theta  n (m) 

;  1  ] ; 

X  n  (  ; ,  1)  =  X 

tip; 

F  =  eye ( 4 ) ; 

for  j  =  l;n-l 

t 

%  for  loop  j 

1  sn  =  r 

n(j)  -  r_n(j+l) 

El  =  E  n 

*  I_x(j)  ; 

G_n=[l, 

0, 

0, 

-m  n ( j +1 )*( (omega  n (m) * 

pi/30) ^2  +  R_V1^2) ; 

0, 

1, 

0, 

-T_n (j ) ; 

0, 

0, 

1, 

0; 

0, 

0, 

1  sn 

,  1]  ; 

A_n= [ 1 , 

O 

o 

0; 

1  sn 

t 

o 

\ — 1 

-T_n(j) ; 

-  (1  sn''2)  /  (2*EI) 

t 

-1  sn/EI,  1+  (T  n  ( j ) *1 

sn''2)  /  (2*EI)  ,  0; 

- (l_sn^3) / (3*EI) ,  - (l_sn^2) / (2*EI) ,  (T_n ( j ) *l_sn^3 ) / ( 3*EI ) ,  1]; 

F_n  =  inv (G_n) *A_n; 

F  =  F_n  *  F; 

X_n(;,j+1)  =  F  *  X_tip; 

end;  %  end  of  loop  for  j  -->  {  l_sn,  El,  A_n,  G_n,  F_n) 

"o 

%  get  the  total  deflection  at  each  radial  station 
deflection (m, ; ) =X_n (4, ; ) ; 
plot  (  r_n,  2*deflection (m, ; ) , 
grid  on; 
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title  (  '  Chordwise  Mode  Shapes  at  Operational  Rotational  Velocity  for  Uniform 

Blade '  ) ; 

xlabel  (  '  Blade  Station  (inc) '  )  ; 
ylabel  (  '  Relative  Deflection  '  )  ; 

hold  on 

end  %  end  of  for  loop  count 

"o 

disp('The  Natural  Frequencies  are(cpm):  ') 
disp (omega_n) 

"o 

disp  ('The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is:  ') 
disp (omega_n/R_V) 
omega_rate  =  omega_n/R_V; 

"o 

%  end  of  function  "HINGELESS  NONUNIFORM  EDGEWISE" 
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APPENDIX  B.  TABLES  OF  CHARACTERISTIC  FUNCTIONS 
REPRESENTING  NORMAL  MODES  OF  VIBRATION  OF  A  BEAM 


The  tables  in  [Ref.  18]  give  the  values  of  the  eharacteristic  function  and  its  first 
three  derivatives  for  each  of  the  first  five  modes  {n=  1,  2,  3,  4,5),  of  three  different  types 
of  beams.  We  use  only  two  types  of  them: 

1 .  Clamped-free  Beam 

2.  Clamped-supported  Beam 

The  functions  are  tabulated  to  five  decimal  places  at  intervals  of  the  argument 
corresponding  to  1/50  of  the  beam  length,  that  is,  0.02  /. 

It  may  be  shown  that  the  characteristic  function  for  a  free-supported  beam  is  the 
same  as  the  second  derivative  of  the  characteristic  function  for  a  clamped-supported 
beam.  Also  the  characteristic  function  for  a  clamped-free  beam  is  the  same  as  second 
derivative  of  the  characteristic  function  for  a  clamped-clamped  beam.[Ref  18] 

A.  DATA  FOR  THE  SUPPORTED-FREE  BEAM  (HINGED  BLADE) 

Clamped-Supported  Beam  (Second  Derivative) 

From  [Ref  18]: 

a.  First  Mode 

2.00000,  1.84282,  1.68568,  1.52869,  1.37202, 

1.21590,  1.06060,  0.90647,  0.75386,  0.60318, 

0.45486,  0.30935,  0.16712,  0.02866,-0.10554, 

-0.23500,-0.35923,-0.47775,-0.59009,-0.69582, 

-0.79450,-0.88574,-0.96918,-1.04447,-1.11133, 

-1.16950,-1.21875,-1.25894,-1.28992,-1.31162, 

-1.32402,-1.32714,-1.32106,-1.30588,-1.28180, 

-1.24904,-1.20786,-1.15858,-1.10157,-1.03725, 
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-0.96606,-0.88849,-0.80507,-0.71636,-0.62295, 

-0.52547,-0.42455,-0.32086,-0.21507,-0.10789,0 


b.  Second  Mode 

2.00000,  1.71729,  1.43502,  1.15424,  0.87658, 
0.60415,  0.33937,  0.08494,-0.15633,-0.38158, 
-0.58802,-0.77300,-0.93412,-1.06927,-1.17673, 
-1 .255 1 8,-1 .30380,-1 .32224,-1 .3 1068,-1 .26983, 
-1 .20092,-1 . 10569,-0.98634,-0.84553,-0.6863 1 , 
-0.51204,-0.32640,-0.13323,  0.06348,  0.25968, 
0.45136,  0.63460,  0.80569,  0.96112,  1.09776, 
1.21281,  1.30395,  1.36930,  1.40755,  1.41789, 
1.40010,  1.35450,  1.28198,  1.18399,  1.06244, 
0.91976,  0.75879,  0.58271,  0.39504,  0.19951,0 


c.  Third  Mode 

2.00000,  1.59173,  1.18532,  0.78508,  0.39742, 
0.03009,-0.30845,-0.60968,-0.86560,-1.06927, 
-1.21523,-1.29988,-1.32158,-1.28137,-1.18195, 
-1.02863,-0.82967,-0.59110,-0.32637,-0.04596, 
0.23807,  0.51362,  0.76897,  0.99330,  1.17711, 
1.31263,  1.39411,  1.41807,  1.38344,  1.29160, 
1.14631,  0.95356,  0.72134,  0.45927,  0.17821, 
-0.11017,-0.39391,-0.66123,-0.90103,-1.10335, 
-1 .25980,-1 .36386,-1 .41 124,-1 .39996,-1 .33049, 
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-1.20573,-1.03085,-0.81313,-0.56162,-0.28677,0 


B  DATA  FOR  THE  CLAMPED-FREE  BEAM  (HINGELESS  BLADE) 
Clamped-Clamped  Beam  (Second  Derivative) 

From  [Ref.  18] 

a.  First  Mode 

2.00000,  1.6861,  1.37287,  1.06189,  0.75558, 
0.45702,  0.16974,  -0.10243,  -0.35563,  -0.58594, 
-0.78975,-0.96375,  -1.10515,  -1.21175,  -1.28189, 
-1.31485,  -1.31055,  -1.26974,  -1.19398,  -1.08559, 
-0.94753,  -0.78359,  -0.59802,  -0.39555,  -0.18130,. 
0.03937,  0.26103,  0.47822,  0.68568,  0.87841, 
1.05185,  1.20196,  1.32534,  1.41931,  1.48203, 
1.51248,  1.51046,  1.47707,  1.41376,  1.32324, 
1.20901,  1.07535,  0.92728,  0.77049,  0.61120, 

0.45614,  0.31238,  0.18727,  0.08829,  0.02339,0 

b.  Second  Mode 

2.0000,  1.80877,  1.61764,  1.42680,  1.23660, 
1.04750,  0.86004,  0.67484,  0.49261,  0.31409, 
0.14007,  -0.02865,  -0.19123,  -0.34687,  -0.49475, 
-0.63410,  -0.76419,  -0.88431,  -0.99384,  -1.09222, 
-1.17895,  -1.25365,  -1.31600,  -1.36578,  -1.40289, 
-1.42733,  -1.43920,  -1.43871,  -1.42619,  -1.40209, 
-1.36694,  -1.32141,  -1.26626,  -1.20236,  -1.13068, 
-1.05227,  -0.96827,  -0.87992,  -0.78852,  -0.69544, 
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-0.60211,  -0.51002,  -0.42070,  -0.33573,  -0.25670, 

-0.18526,  -0.12305,  -0.07174,  -0.03301,  -0.00853,0 
c.  Third  Mode 

2.0000,  1.94494,  1.88988,  1.83483,  1.77980, 
1.72480,  1.66985,  1.61496,  1.56016,  1.50549, 
1.45096,  1.39660,  1.34247,  1.28859,  1.23500, 
1.18175,  1.12889,  1.07646,  1.02451,  0.97309, 
0.92227,  0.87209,  0.82262,  0.77392,  0.72603, 
0.67905,  0.63301,  0.58800,  0.54408,  0.50131, 
0.45977,  0.41952,  0.38065,  0.34322,  0.30730, 
0.27297,  0.24030,  0.20936,  0.18024,  0.15301, 
0.12774,  0.10452,  0.08340,  0.06449,  0.04784, 
0.03355,  0.02168,  0.01231,  0.00552,0.00139,0 
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APPENDIX  C.  VALIDATION  OF  THE  RESULTS  OF  THE 
GENERATED  MATLAB®  CODE 


VALIDATION  OF  HINGED  NONROTATING  UNIFORM  BLADE 
1.  10  stations 


According  to  Hartog  the  coefficients  are; 

0  0.30800000000000  0.48076923076923 

According  to  Young  and  Felgar  the  coefficients  are: 

0  0.30858097836836  0.48043136538462 

According  to  Our  Program  the  coefficients  are; 

0  0.30683909929673  0.47692866436996 

The  Error  ratio  of  the  Natural  Frequencies(%) 

0  -0.55644803775140  -0.72907417521673 
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2. 


20  Stations 


Hinged  Nonrotating  Uniform  Blade  Comparison  (20  statios) 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 

0  0.30800000000000  0.48076923076923 

According  to  Young  and  Felgar  the  coefficients  are: 

0  0.30858097836836  0.48043136538462 

According  to  Our  Program  the  coefficients  are: 

0  0.30815824117762  0.47864743924780 

The  Error  ratio  of  the  Natural  Frequencies(%) 

0  -0.13699392392129  -0.37131758360296 
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3. 


30  Stations 


Hinged  Nonrotating  Uniform  Blade  Comparison  (30  stations) 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 

0  0.30800000000000  0.48076923076923 

According  to  Young  and  Felgar  the  coefficients  are: 

0  0.30858097836836  0.48043136538462 

According  to  Our  Program  the  coefficients  are: 

0  0.30839579357132  0.47900464866249 

The  Error  Ratio  of  the  Natural  Frequencies  (%) 

0  -0.06001173436615  -0.29696577386870 
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4. 


40  Stations 


Hinged  Nonrotating  Uniform  Blade  Comparison  (40  stations) 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 

0  0.30800000000000  0.48076923076923 

According  to  Young  and  Felgar  the  coefficients  are: 

0  0.30858097836836  0.48043136538462 

According  to  Our  Program  the  coefficients  are: 

0  0.30847776443562  0.47912997196652 

The  Error  Ratio  of  the  Natural  Frequencies(%) 

0  -0.03344792452286  -0.27088019472901 
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5. 


50  Stations 


Hinged  Nonrotating  Uniform  Blade  Comparison  (50  stations) 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 

0  0.30800000000000  0.48076923076923 

According  to  Young  and  Felgar  the  coefficients  are: 

0  0.30858097836836  0.48043136538462 

According  to  Our  Program  the  coefficients  are: 

0  0.30851518704613  0.47918781348356 

The  Error  Ratio  of  the  Natural  Frequencies(%) 

0  -0.02132060199573  -0.25884069830882 
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6. 


100  Stations 


Hinged  Nonrotating  Uniform  Blade  Comparison  (100  Stations) 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 

0  0.30800000000000  0.48076923076923 

According  to  Young  and  Felgar  the  coefficients  are: 

0  0.30858097836836  0.48043136538462 

According  to  Our  Program  the  coefficients  are: 

0  0.30856485104816  0.47926451848594 

The  Error  Ratio  of  the  Natural  Frequencies(%) 

0  -0.00522628461558  -0.24287483764511 
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7. 


200  Stations 


Hinged  Nonrotating  Uniform  Blade  Comparison  (200  stations) 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 

0  0.30800000000000  0.48076923076923 

According  to  Young  and  Felgar  the  coefficients  are: 

0  0.30858097836836  0.48043136538462 

According  to  Our  Program  the  coefficients  are: 

0  0.30857690987193  0.47928353213819 

The  Error  Ratio  of  the  Natural  Frequencies(%) 

0  -0.00131845340836  -0.23891721671936 
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B. 


VALIDATION  OF  HINGELESS  NONROTATING  UNIFORM  BLADE 


1,  10  Staions 


Centrifugal  Force  :  0 

According  to  Hartog  the  coefficients  are: 
0.16000000000000  0.35656401944895 

According  to  Young  and  Felgar  the  coefficients  are: 
0.15952332370540  0.35713917325343 

According  to  Our  Program  the  coefficients  are: 
0.14893617021277  0.35338345864662 

The  Error  Ratio  of  the  Natural  Frequencies(%) 
-6.63674329666294  -1.05161093715956 
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2. 


20  Stations 


According  to  Hartog  the  coefficients  are: 
0.16000000000000  0.35656401944895 

According  to  Young  and  Felgar  the  coefficients  are: 
0.15952332370540  0.35713917325343 

According  to  Our  Program  the  coefficients  are: 
0.15555555555556  0.36600000000000 

The  Error  Ratio  of  the  Natural  Frequeneies(%) 
-2.48726522095906  2.45007975167658 
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3. 


30  Stations 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 
0.16000000000000  0.35656401944895 
According  to  Young  and  Felgar  the  coefficients  are: 
0.15952332370540  0.35713917325343 

According  to  Our  Program  the  coefficients  are: 
0.15555555555556  0.36585365853659 

The  Error  Ratio  of  the  Natural  Frequencies(%) 
-2.48726522095906  2.44008 1 04845 1 8 1 
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4. 


40  Stations 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 
0.16000000000000  0.35656401944895 

According  to  Young  and  Felgar  the  coefficients  are: 
0.15952332370540  0.35713917325343 

According  to  Our  Program  the  coefficients  are: 
0.16279069767442  0.34959349593496 

The  Error  Ratio  of  the  Natural  Frequencies(%) 
2.04821081527540  -2.1 1281 144259047 
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5. 


50  Stations 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 
0.16000000000000  0.35656401944895 

According  to  Young  and  Felgar  the  coefficients  are: 
0.15952332370540  0.35713917325343 

According  to  Our  Program  the  coefficients  are: 
0.16279069767442  0.35537190082645 

The  Error  Ratio  of  the  Natural  Frequencies(%) 
2.04821081527540  -0.49484138379032 
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6. 


100  Stations 


Hingeless  Nonrotating  Uniform  Blade  Comparison  (100  stations) 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 
0.16000000000000  0.35656401944895 

According  to  Young  and  Felgar  the  coefficients  are: 
0.15952332370540  0.35713917325343 

According  to  Our  Program  the  coefficients  are: 
0.16279069767442  0.35537190082645 

The  Error  Ratio  of  the  Natural  Frequencies(%) 
2.04821081527540  -0.49484138379032 
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7. 


200  Stations 


Hingeless  Nonrotating  Uniform  Blade  Comparison  (200  Stations) 


Centrifugal  Force  ;  0 

According  to  Hartog  the  coefficients  are; 
0.16000000000000  0.35656401944895 

According  to  Young  and  Felgar  the  coefficients  are: 
0.15952332370540  0.35713917325343 

According  to  Our  Program  the  coefficients  are: 
0.16279069767442  0.36134453781513 

The  Error  Ratio  of  the  Natural  Frequencies(%) 
2.04821081527540  1.17751422320480 


188 


C.  RESULTS  FOR  H-3  HELICOPTER  FOR  ANALYSIS  OF  ROTATING 
NONUNIFORM  HINGED  BLADES 

1,  Flatwise  Mode  Shapes 
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Centrifugal  Force  is  : 
4.515809216498805e+004 

The  Natural  Frequencies  are(cpm): 

212.94221992493 

554.01301746368 

1006.88151531219 

1575.99021453857 

2341.91161987331 


The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is: 

I. 04897645283215 
2.72912816484574 
4.96000746459209 
7.76349859378608 

II. 53651044272568 
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2,  Edgewise  Mode  Shapes 


Edgewise  Mode  Shapes  at  Operational  Rotational  Velocity 
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Edgewise  Mode  Shapes  at  Operational  Rotational  Velocity 
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Centrifugal  Force  : 

4.515809216498805e+004 

The  Natural  Frequencies  are(cpm): 

64.46092529297 

713.63865966797 

1828.18133850098 

3443.59081058502 

5693.24688033461 

The  ratio  of  the  Natural  Frequency  to  Rotational  Speed  is: 

0.31754150390625 

3.51546137767472 

9.00581940148264 

16.96350152997548 

28.04555113465327 


194 


D.  RESULTS  FOR  H-3R  HELICOPTER  FOR  ANALYSIS  OF  ROTATING 
NONUNIFORM  HINGELESS  BLADES 


1,  Flatwise  Mode  Shapes 
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Centrifugal  Force  : 

4.515809216498805e+004 

The  Natural  Frequencies  are(cpm): 

228.37500000000 

583.62500000000 

1070.82500000000 

1629.07500000000 

2298.97500000000 

The  ratio  of  the  Natural  Frequency/Rotational  Speed  is: 

I. 12500000000000 
2.87500000000000 
5.27500000000000 
8.02500000000000 

II. 32500000000000 


197 


2,  Edgewise  Mode  Shapes 
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Edgewise  Mode  Shapes  at  Operational  Rotational  Velocity 


Centrifugal  Force  : 

4.515809216498805e+004 

The  Natural  Frequencies  are(cpm): 

147.17500000000 
847.52500000000 

2055.37500000000 

3598.17500000000 

5506.37500000000 

The  ratio  of  the  Natural  Frequency/Rotational  Speed  is: 

0.72500000000000 

4.17500000000000 

10.12500000000000 
17.72500000000000 

27.12500000000000 
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APPENDIX  D.  BUILDING  GUI  AND  INCORPORATING  MATLAB® 

CODE  INTO  JANRAD 

A,  GENERATION  OF  THE  GUI 

The  development  of  the  GUI  is  aeeomplished  utilizing  tools  of  MATLAB® 
version  6.1  [Ref  16].  The  most  important  tool  in  order  to  generate  a  GUI  is  a  funetion 
called  GUIDE  (Graphical  User  Interface  Design  Environment)  allows  the  programmer  to 
create  an  interactive  window  which  has  the  same  properties  as  in  Windows,  using  ‘drag 
and  drop’  controls  or  objects  from  a  master  pallet.  Once  the  front  page  of  the  GUI  with  a 
fig-file  is  generated,  MATLAB®  version  6.1  creates  an  m-file  code  which  essentially 
runs  the  GUI  window.  The  properties  of  the  each  object  can  be  arranged  by  ‘Editor 
Preferences’  tool.  Main  role  of  the  programmer  is  to  write  the  m-files  and  callback 
functions  of  the  m-file  of  GUI  in  order  to  have  the  program  run  as  desired.  Being  the 
blade  dynamics  portion  of  the  JANRAD  program,  this  GUI  is  generated  with  the  newest 
version  of  MATLAB®.  Different  portions  and  versions  of  the  GUI  are  outlined  by 
Lapacik  [Ref.  7]  and  Hucke  [Ref.  8]. 

In  this  thesis  GUI  page  is  designed  in  a  different  approach  that  the  input  icons  and 
axis  of  the  output  plot  and  the  results  of  natural  frequencies  and  the  centrifugal  force  are 
displayed  in  one  end  page.  The  main  reason  of  such  a  different  approach  is  to  give  the 
opportunity  of  seeing  both  the  inputs  and  the  results  and  the  plots  of  the  blade  dynamics 
in  one  window.  The  user  window  of  the  GUI  is  shown  in  figure  below. 
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Graphical  User  Interface  (GUI)  of  the  Program 


The  User’s  Guide  attaehed  in  APPENDIX.E  gives  details  and  features  of  the 
generated  program.  Eor  further  detailed  GUI  developments  in  MATEAB®  refer  to  [Ref. 
19]  and  [Ref  20]. 

B,  THE  RESULTS  IN  GUI 

To  show  the  results  in  the  GUI  page,  same  data  for  H-3  (S-6I)  helicopter  data  is 
utilized.  The  results  of  the  application  are  depicted  in  figure  below.  As  it  can  be 
concluded  from  the  figure  the  results  and  the  plots  of  the  GUI  matches  with  original 
generated  program  in  Chapter  III.  This  shows  that  the  developed  GUI  program  is  working 
properly. 
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APPENDIX  E.  USER  GUIDE  FOR  GRAPHICAL  USER  INTERFACE 

(GUI) 


A.  ABOUT  THE  GUI 

GUI  window  has  two  essential  parts: 

•  Input  Parts 

•  Output  Parts 


Main  GUI  Window 

For  better  understanding  refer  to  the  figure  above  and  go  through  the  input  and 
output  explanations. 

1,  Input  Boxes 

Inputs  in  this  GUI  are  three  types. 

a.  Popupmenus 
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There  are  5  popupmenus.  They  are  itemized  as  they  are  appeared  in  ‘Main 

GUI  Window’. 

i.  E_n 

(Elastieity  module-stiffness) 

You  ean  piek  either  of  the  following  options: 

1.  Aluminum 

2.  Composite 

3.  Titanium 

4.  Steel 

ii.  Mode  shapes 

(Number  of  mode  shapes) 

You  can  select  up  to  5  mode  shapes.  If  you  want  to  plot  more  than 
5  mode  shapes,  you  should  use  the  related  MATLAB®  code  listed  in  APPENDIX  A 
manually. 

1.  l.Mode  shape 

2.  2.Mode  shape 

3.  3.Mode  shape 

4.  4.Mode  shape 

5.  5  Mode  shape 

iii.  Blade  Root 

You  can  select  one  of  these  2  options: 

1.  Hinged  (Articulated)  Blade 

2.  Hingeless  (Rigid  Blade) 

iv.  Plot  Axis 

You  can  select  one  of  the  3  options: 
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(For  current  version  of  the  generated  GUI  program  coupled  is  not 

available.) 

1.  Flatwise 

2.  Edgewise 

3.  Coupled 

V.  Blade  Form 

You  ean  seleet  one  of  the  2  options. 

Note  that  once  you  select  ‘Uniform’  blade  you  should  use 
eorresponding  values  for  uniform  otherwise  the  program  will  not  run  and  give  error  or 
warning  dialog  boxes.  It  is  the  same  for  the  nonuniform  blade. 

1.  Uniform 

2.  Nonuniform 

b.  Edit  Boxes 

Write  numerical  data  in  the  input  edit  boxes.  Do  not  use  any  non- 
numerical  inputs;  this  will  avoid  the  GUI  to  run,  and  you  will  see  error  statements  in 
MATLAB®  Command  Window.  If  the  design  is  about  a  ‘Nonuniform  Blade’,  then  the 
number  of  the  stations  should  mateh  in  the  input  boxes  for  “  Radius”,  “Weight”  and 
“Inertia”. 

i.  Rotor  RPM 

Rotational  Speed  of  the  design  helicopter  in  units  of  'rpm\ 

Do  not  use  ‘0’  for  rotational  speed  this  will  cause  problems  in 

GUI. 

ii.  Hinge  Offset 

Hinge  Offset  (e)  of  the  rotor  blade  in  units  of  'inches'. 

You  ean  enter  a  non-zero  value  as  long  as  you  have  picked 
‘Hinged  (Articulated)’  in  the  ‘Blade  Root’  popupmenu  box.  Otherwise  you  should  enter  0 
for  ‘Hingeless  (Rigid)’. 
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iii.  Radius  (stations) 

Radius  input  changes  depending  on  the  seleetion  made  in  ‘Blade 
Form’  popupmenu  box. 

If  you  have  seleeted  “Uniform”:  You  should  enter  only  one 
numerieal  value,  whieh  should  be  the  length  of  the  blade  in  units  of  'inches'. 

Use  eommas  (,)  in  between  the  stations. 

Example: 

If  the  radius  values  of  the  blade  are:  {250,  240,  235,  230, . ,10} 

Then  enter  the  radius  in  the  edit  box  as: 

250,240,235,230, . ,10 

iv.  Weight  (stations) 

Weight  input  proeedure  is  the  same  as  the  radius  proeedure.  Use 

the  unit  oi'lbs' 

Example: 

If  the  weight  values  of  eaeh  station  are:  {  7.6,  3.4,  5,  2,5 . ,  3} 

Then  enter  the  weight  in  the  edit  box  as: 

7.6,  3.4,  5,2,5 . ,3 

V.  I_xx  (stations) 

Inertia  input  proeedure  is  the  same  as  the  radius  proeedure.  Use  the 

unit  of ‘inch‘d' 

Example: 

If  the  inertia  values  of  eaeh  station  are:  {  1.2,  2,  2,5  ,4,  ...,1,5} 

Then  enter  the  inertia  in  the  edit  box  as: 

1.2,  2,2.5,  5,4, . ,1.5 

c.  Push  Button 
i.  OK 

This  pushbutton  is  used  to  run  the  program.  Onee  you  entered  all 
the  inputs  push  on  this  button.  After  pushing  this  button  GUI  will  automatieally  run  all 
the  neeessary  programs,  and  give  the  plots  and  the  results  on  the  ‘Main  GUI  Window’. 
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11. 


CANCEL 


If  you  push  on  this  it  will  cancel  to  run  the  program. 

2,  Output  Boxes 

There  are  two  types  of  outputs  in  this  GUI  program. 

a.  Static  Boxes 

Note  that  the  inputs  entered,  still  stays  in  the  GUI  window  after  running 
the  program.  Henee,  you  ean  see  the  input  and  output  values  at  the  same  time. 

i.  Centrifugal  Force 

The  box  under  this  title  gives  the  Centrifugal  Foree  value  of  inputs 

entered 

ii.  Omega  l . Omega  S  for  side  label  “cpm” 

The  Natural  Frequeney  values  are  depleted  in  these  boxes  on  the 
right  side  of  the  ‘epm’  label.  Natural  frequeney  values  eorrespond  the  boxes  under  eaeh 
‘omega’  box. 

iii.  Omega  l . Omega  S  for  the  side  label  “ratio” 

Ratio  of  Natural  Frequencies  to  the  Operational  Speed  is  depicted 
in  these  boxes  on  the  right  side  of  the  ‘ratio’  label.  Each  ratio  corresponds  the  boxes  under 
eaeh  ‘omega’  box. 

b.  Axis 

Mode  shape  plot  is  depleted  in  this  box.  You  ean  see  whieh  plot  is 
depicted  from  both  the  inputs  you  have  chosen  and  the  title  of  the  plot  loeated  in  the  axis 
box. 

B,  RUNNING  THE  PROGRAM 

There  are  two  different  ways  of  running  the  GUI  program; 

1.  Using  ‘guide’command 
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Print  ‘guide’  and  press  ‘enter’  in  MATLAB®  Command  window.  MATLAB® 
will  open  the  ‘gui  layout  editor  window’ 


MATLAB®  Command  Window 


GUI  Layout  Editor 


From  this  window  you  ean  go  to  ‘open  fdes’  icon  and  open  the  "finalthesis.fig' 
file  where  it  is  saved  in  your  computer. 
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Once  you  open  the  ^finalthesis.fig  ‘  file  you  will  see  the  similar  window  as  ‘Main 
GUI  Window’.  But  it  is  not  exactly  the  same  window.  The  window  that  you  have  opened 
is  ‘gui  layout  editor  window’.  Do  not  make  any  additions  or  ehanges  on  this  window.  It 
may  cause  problems  when  you  want  to  run  the  GUI. 


Go  to  the - on  top  of  the  window  and  click  on  it.  This  will  open  you  the  ‘Main 

GUI  Window’.  Then  enter  the  input  values  as  described  in  previous  seetion  and  run  the 
program. 

2,  Running  with  the  m-file 

Open  the  Command  window  of  MATLAB®. 

Go  to  the  open  files  part  and  open  the  "finalthesis.m'^We..  This  will  bring  you 
another  window,  which  has  the  main  running  m-file  of  the  GUI.  Do  not  make  any 
changes  in  this  program  page.  This  may  cause  problems  while  you  are  running  the  GUI 


*  H:\npstez\rmaltez2\finaithesis.m 

H  E!^ 

File  Edit  View  Text  Debug  Breakpoints 

Web  Window  Help 

ZJ 

H  FINALTHESIS  Application  H-file  for  final thesis. fig 
%  FIG  =  FINALTHESIS  launch  finalthesis  GUI. 

H  FINALTHESIS (' callback_naifte' ,  ...)  invoke  the  named  callback. 

%  Last  Modified  by  GUIDE  v2.0  OS-Sep-2002  13:06:07 

if  margin  ==  0  %  LAUNCH  GUI 

fig  =  openf ig(mfilename, ' reuse ') ; 

%  Use  system  color  scheme  for  figure: 

set (fig, ' Color ' ,get (0, ' defaultUicontrolBackgroundColor ' ) ) ; 

%  Generate  a  structure  of  handles  to  pass  to  callbacks,  and  store  it. 
handles  =  guihandles(fig) ; 
guidata(fig,  handles); 


%  Call  the  popup  menu  callback  to  initialize  the  handles. data 
%  Field  with  the  current  value  of  the  popup 
H 

%  (1)  Popup  Menu  "en" 

en_popupmenu_Callback (handles. en_popupmenu, [ ] , handles) 

% 

k  (2)  Popup  Menu  "modeshape" 

modeshape_popupmenu_Callback (handles . modeshape_popupmenu, [ ] , handles) 
k 

k  (3)  Popup  Menu  "hinge" 

hinge_popupmenu_Callback (handles. hinge_popupmenu, [ ] , handles) 


’finalthesis.m  file’ 

Go  to  ‘debug’  and  ‘run’  the  program.  This  will  open  you  the  ‘main  GUI  window’. 
Then  enter  the  input  values  as  described  above  and  run  the  program 
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